Найти сумму положительных чисел - Pascal ABC

Формулировка задачи:

Вводиться последовательность из N целых чисел. Найти сумму положительных чисел.

uses crt;
var n,i,a,s:integer;
begin
write('n>0 n=');
read(n);
writeln('Введите ',n,' целых цисел');
s:=0;
for i:=1 to n do
 begin
  read(a);
  if a>0 then s:=s+a;
 end;
write('Сумма положительных чисел=',s)
end.

Решение задачи: «Найти сумму положительных чисел»

Листинг программы

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
var n,i,a,s:integer;
begin
SetConsoleCP(1251);
SetConsoleOutPutCP(1251);
//когда запустишь и появится консоль:
//правой кнопкой мыши --> Свойства --> Шрифт --> Lucida Console
 
write('n>0 n=');
read(n);
writeln('Введите ',n,' целых цисел');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if a>0 then s:=s+a;
 end;
write('Сумма положительных чисел=',s);
readln
end.

Объяснение кода листинга программы

В программе используется язык программирования Pascal ABC.
Программа начинается с объявления переменных n, i и a типа integer.
Затем программа устанавливает кодировку консоли на 1251 (кириллица) с помощью функции SetConsoleCP и SetConsoleOutPutCP.
Далее программа выводит сообщение на экран с помощью функции write.
После этого программа запрашивает у пользователя ввести число n с помощью функции read.
Затем программа устанавливает переменную s равной нулю.
Далее происходит цикл for, который выполняется от 1 до n.
Внутри цикла программа считывает число a с помощью функции readln.
Если число a больше нуля, то к переменной s прибавляется значение a.
По завершении цикла программа выводит на экран сообщение с помощью функции write.
Наконец, программа считывает число n с помощью функции readln и выводит на экран сумму положительных чисел, хранящуюся в переменной s, с помощью функции write.
Программа завершается после вывода сообщения readln.