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.
