Склавиатуры поочередно вводятся целые числа. вычислите сумму положительных чисел. признаком конца ввода чисел является число 0.

Var
A:integer;
S:real;
Begin
S:=0;
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
Write('S = ',S);
End.