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

Фи, Делфи...

А без дурацких тут циклов решение фактически однострочное

begin Writeln('Сумма положительных чисел равна ',ReadSeqInteger(ReadInteger('n=')).Where(t->t>0).Sum)end.

вообше "Фи, паскаль", но кто меня спрашивает(

Если паскаль - он "фи вообще", напишите короче и эффективнее моего ответа в комментарии (того, "однострочного") на любом выбранном Вами языке.

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.

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018Внимание! Если программа не работает, обновите версию!begin  var (s,n):=(0,ReadInteger('n='));  loop n do begin    var t:=ReadInteger;    if t>0 then s+=t    end;  Writeln('Сумма положительных чисел равна ',s)end.