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

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.