Найти сумму вво с клавиатуры положительных чисел. выход при о

var

a, s: real;

begin

s: = 0;

repeat

writeln ('Введите положительное число');

readln (a); / / Вводим положительное число

if a < 0 then {Если введено не положительное число, печатаем сообщение об этом и начинаем цикл сначала}

begin

writeln ('Введено не положительное число. Введите число еще раз.');

continue;

end;

s: = s + a;

until a = 0;

writeln ('Сумма введенных чисел равна: ', s); / / Выводим сумму

end.

var sum, x:integer;

begin

x:=1;

while x0 do begin readln (x); sum:=sum+x; end;

writeln (sum);

end.