3. из элементов массива с сформировать массив а той же размерности по правилу: если элемент четный, то a(i)=c(i)2 , если нечетный, то a(i)=2*c(i)

Const n=5;
var c,a:array[1..n] of integer;
i:integer;
begin
 for i:=1 to n do c[i]:=random(100);
for i:=1 to n do write(c[i]:4);
writeln;
for  i:=1 to n doif (c[i] mod 2)=0 then a[i]:=c[i]  {если элемент четный, то A(I)=C(I)2 возможно здесь лишняя 2,если нет,тогда допишите сами правильно}
else a[i]:=c[i]*2;for i:=1 to n do write(a[i]:4);
end.