Замените все четные элементы одномерного массива на их квадраты, а нечетные увеличьте вдвое

Program Zamena;

Const n=10;

Var

a: array [1 ... n] of integer;

i, k: integer;

Begin

Randomize;

For i:=1 to n DO

a [i] : = Random (10);

Write ('Введенный массив');

For i:=1 to n DO

Writeln (a[i]:4); Readln (a[i]);

For i:=1 to n DO

Begin

k: = a[i] mod 2;

If a[i] / 2 = k then a[i] : = a[i] * 2 else a[i] : = Sqr (a[i]);

End;

Write ('Новый массив');

For i:=1 to n DO

Writeln (a[i]:4); Readln (a[i]);

End.