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.