Нужна помощь.
Код:
program v18z1;
var i,n,m,sum:integer;
begin
writeln (n);
read(n);
m:=9;
randomize;
for i:=1 to n do writeln(-m div 2 +random(m):8);
{далее проверка условия}
if abs({чего-то})<{чего-то в квадрате}
then sum:=sum+sum;
{вывод конесной суммы}
writeln('suma=',sum);
end.
Даны натуральное число n, целые числа a1, … , an. Получить сумму тех чисел данной последовательности, которые удовлетворяют условию