Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор пока не будет введён ноль) и подсчёт суммы введённых положительных чисел. Используйте оператор repeat

var a,s:integer;

BEGIN

s:=0;

repeat

read(a);

if (a>0) then

s:=s+a;

until (a=0);

writeln(s);

end.