program summrep;
var
numb:integer; { число, введенное с клавиатуры }
summ:integer; { сумма введенных чисел }
begin
writeln('Вычисление суммы положительных целых чисел.');
summ:=0;
repeat
write('->');
readln(numb);
if numb>0 then summ:=summ+numb;
until numb <= 0;
writeln('Сумма введенных чисел: ',summ);
end.