Розв’язок задачі з Абрамова №178а

Всі умови | Умова: Дано натуральні числа n, a1, ... , an. Визначити кількість членів ak послідовності a1, ... , an, що є непарними числами. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №178)

program pr178_1;
var
  i, n, k, a : integer;
begin
  write('n = '); readln(n);
  k := 0;
  for i := 1 to n do
  begin
    write('a',i,' = '); readln(a);
    if (a mod 2 <> 0) then inc(k);
  end;
  writeln('Result: ', k);
  readln;
end.