C клавиатуры вводится N чисел.Определить сумму положительных чисел. Через циклы в паскале

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses  System.SysUtils;
var n, a, i, sum:integer;
begin
  sum := 0;
  write('Enter n: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Enter ',i , ' number: ');
    readln(a);
    if a > 0 then
      sum := sum + a;
  end;
  writeln('Sum of positive numbers: ', sum);
  readln; // Чтобы консоль не закрывалась
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.