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

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.