Напишите на паскале.  Задание: Найти сумму тех элементов массива А[1 .. N],
которые удовлетворяют условию |Ai| < i2.

const m = 100;var a: array[1..m] of integer;    i,n,s: integer;begin  write('N = ');  readln(n);  randomize;  writeln('массив:');  s:=0;  for i:=1 to n do  begin    a[i]:=random(-50,50);    write(a[i],' ');    if abs(a[i])<i*i then s:=s+a[i];     end;   writeln;  writeln('сумма: ',s);end.