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.