Var x, sum: integer;
Begin
sum := 0;
writeln(‘Введите числа:’);
readln (x);
while (x > 0) do
begin
sum := sum + x;
readln(x)
end;
writeln (‘Сумма введённых чисел равна ’, sum)
End.
Рекомендуем