6 задание 3 модуль

program proba;
uses crt;
var
n,s,i,a:integer
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a);
if a>0 then s:=s+1;
end;
write(s);
end.

  program  -   заголовок, начало программы
  proba - имя программы
  uses crt - список подключаемых модулей
  var - раздел описания переменных
  n,s,i,a:  - список переменных
  integer  - тип данных
  begin  - признак начала программы
  read  - ввод данных
  (n) - список ввода
  s:=0  - оператор присваивания( s=0)
  for i:=1 to n do  - оператор цикла
  begin  - признак начала программы
  read  - ввод данных
 (а) - список ввода
  if - оператор ветвления
  then s:=s+1 - затем s=s+1
  end  - конец
  write  - вывод данных
  (s)  - список вывода
  end - конец программы.