Дан массив C размером 10, заполняемый с клавиатуры. Из элементов этого массива сформировать новый массив A по правилу: если номер элемента чётный, то A[I]=C[I] ^2, если нечётный, то A[I]=2* C[I]. паскаль​

var

i:integer;

c:array [1..15] of integer;

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

begin

for i:=1 to 15 do begin

c[i]:=Random (100);

end;

for i:=1 to 15 do begin

if (c[i] mod 2 = 0) then

a[i]:= c[i] div 2

else

a [i]:= c [i] *2;

end;

write ('Массив С: ');

for i:=1 to 15 do begin

write (c [i]);

write (' ');

end;

writeln (' ');

write ('Массив A: ');

for i:=1 to 15 do begin

write (a[i]);

write (' ');

end;

end.

Объяснение:

б,в,г,е - лцд  остальное к трубке

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end.