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

Question

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

Answer 1

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.