Суммирование любого количества целых чисел (программа Паскаль)

Question

Суммирование любого количества целых чисел

Answer 1

program z4;
var sum: real;
count, x:integer;
begin
count:=1; sum:=0;
repeat
write ('Введите значение’, count, '-го слагаемого'); read(x);
count:=count+1;
if x<>999 then sum:=sum+x;
until x=999;
writeln ('Сумма введенных чисел = ', sum:7:3);
end.