var i,a,s:integer;

begin

for i:=1 to 8 do

begin

write ('Введите число: ');

readln (a);

if a > 0 then s:=s+a

end;

writeln('Сумма положительных чисел: ',s);

end.

 var

i, sum, m: integer;

begin

 sum := 0;

 for i := 1 to 8 do

 begin

  readln(m);

  if m > 0 then

    sum := sum + m;

 end;

 writeln('сумма положительных чисел= ', sum);

end.