program SumOfPositiveNumbers;
var
N, i, num, sum: integer;
begin
writeln('Enter the number of integers: ');
readln(N);
sum := 0;
writeln('Enter ', N, ' integers: ');
for i := 1 to N do
begin
readln(num);
if num > 0 then
sum := sum + num;
end;
writeln('The sum of positive numbers is: ', sum);
end.

Программа запрашивает количество целых чисел, затем поочередно вводит каждое число. Если число положительное, оно добавляется к общей сумме. По завершении ввода всех чисел программа выводит сумму положительных чисел.