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 x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.
