Дан массив A[1 ... 10] заменить четные элементы этого массива на их квадрат.

Решение нужно для 9 класса на pascalABC

Var a:array[1 ... 1000] of integer;

i, n:integer;

begin

randomize;

write ('Введите количество элементов массива n=') ; readln (n) ;

for i:=1 to n do begin

a[i]:=random (100) - 40; write (a[i],' ') ; end;

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

for i:=1 to n do

if mod 2 = 0 then a[i]:=sqr (a[i]) ;

for i:=1 to n do

write (a[i],' ') ;;

end.