Написать программу в паскале, тема массивыВозвести в квадрат элементы, не превосходящие

const n=10;

var a:array[1..n] of integer;

i,r: integer;

begin

write (' Начальный массив: ');

for i:=1 to n do

begin

a[i]:=random(41)-20;

write (a[i]:3,' ')

end;

writeln;

write ('Введите число: ');

readln (r);

write ('Преобразованый массив: ');

for i:=1 to n do

begin

if абс(a[i]) lt;= r then a[i]:=a[i]*a[i];

write (a[i]:3,' ')

end

end.