(на языке программирования)с клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?

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