Programe pp;
var a,b,c:integer;
begin
writeln('введите количество чисел');
read(a);
c:=0
for a=0 do begin
a:=a-1;
writeln('введите число');
read(b);
if b>0 then
c:=c+b
else
Writeln('положительное число')
end;
writeln(c);
end.
Programe pp;
var a,b,c:integer;
begin
writeln('введите количество чисел');
read(a);
c:=0
for a=0 do begin
a:=a-1;
writeln('введите число');
read(b);
if b>0 then
c:=c+b
else
Writeln('положительное число')
end;
writeln(c);
end.