Написать программу которая находит сумму десяти чисел, введённых пользователем с клавиатуры.

Алгоритм на Pascal

program abc; var sum, i, k:longint; begin for i:=1 to 10 do begin read (k) ; sum:=sum+k; end; writeln (sum) ; end.

program summation;

var num, sum, counter, userValue : integer;

begin

writeln ('Сколько раз просуммировать числа?') ;

readln (userValue) ;

for counter : = 1 to userValue do

begin

sum : = 0;

repeat

writeln ('Введите число: ') ;

readln (num) ;

if num > = 0 then

sum : = num + sum;

until num < 0;

writeln ('Сумма чисел равна: ', sum) ;

readln;

end;

end.