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

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.

var

 r, i: integer;

begin

 readln(r);

 for i := 0 to r do write(power(i, 2), ' ');

end.