Программа функций, Написать прогу Опции

[Данил]

написать программу функций : Пусть дано 10 целых чисел , которые вводятся по одному . получит сумму из тех, которые меньше по абсолютному значению квадрата порядкового номера вводимого числа.

[virt]

Код

sum:=0;
for i:=1 to 10 do
begin
  read(x);
  if abs(x)<i*i then sum:=sum+x;
end;
writeln(sum);