составить программу которая вычисляет сумму полож.чисел

[arai uzbekova]

составить программу которая вычисляет сумму положительных чисел среди 5 чисел,которые вводятся с клавиатуры

[Mad_Cat]

s:=0;
for i:=1 to 5 do
begin
readln(a);
if a>0 then s:=s+a;
end;
writeln(s);

[Sciv]

и в чем проблема?

sum:=0;
for i:=1 to 5 do begin
  ReadLn(num);
  if num>0 then sum:=sum+num;
end;