Var i, s, x:Integer ;
Begin
Writeln('Введите 10 чисел') ;
S:=0;
For i:=1 to 10 do begin
Read(x) ;
If x>0 then s:=s+x;
End;
Writeln(s) ;
End.
