программы с циклом FOR (Тема 7) (2)

Program SummPlus;
var a,b,sum:integer;
begin
  sum := 0;
  write('Введите количество далее вводимых чисел: ');
  readln(a);
  write('Введите числа: ');
  for i:integer := 1 to a do begin

    read(b);
    if b>0 then begin
      sum := sum + b;
    end;

  end;
  writeln('Сумма положительных чисел равна ', sum);
end.