Вычислите сумму данных 100 натуральных чисел.

Входные данные
Вводятся 100 чисел, сумму которых необходимо посчитать.

Выходные данные
Программа должна вывести единственное число - полученную сумму.

а что значит uses?

Модуль.Можно его убрать

спс

program n;uses crt;var i,x,s:integer;begins:=0;for i:=1 to 100 do beginreadln(x);s:=s+x;end;writeln(s);end.