Написать код программы в экселе​

Program task; const n = 12; var a: array [1..n] of real; first, second, i: integer; tmp: real; begin     writeln('введите ', n, ' элементов массива');     for i : = 1 to n do         read(a[i]);     writeln('введите номер первого элемента');     readln(first);     writeln('введите номер второго элемента');     readln(second);     tmp : = a[first];     a[first] : = a[second];     a[second] : = tmp;     writeln('результат: ');     for i : = 1 to n do         write(a[i], ' ');     readln; end.

Program task; const n = 15; var a: array [1..n] of integer; i: integer; begin     randomize;     for i : = 1 to n do         a[i] : = random(30 - 20  + 1) + 20;     writeln('массив: ');     for i : = 1 to n do             write(a[i], ' ');     writeln;     for i : = 1 to n do         if a[i] mod 2 = 1 then             a[i] : = 31;     writeln('результат: ');     for i : = 1 to n do         write(a[i], ' ');     readln; end.