var a,i:integer;
mass:array[1..10] of integer;
begin
for i:=1 to 10 do 
read(mass[i]);// Введи 10 чисел положительных или отрицательных
//Если надо больше то меняй mass:array[1..15] и т.д.
for i:=1 to 10 do
if mass[i]>0 then a:=a+mass[i];
writeln('Sum polojitelnyx = ',a:2);
end.