Neparne cisla

//Napiste program na zistenie počtu všetkých neparných čísiel z daných n čísiel.
program neparnecisla;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var n,i,c,pn:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko cisiel chcete zadat?: ');
  readln(n);
  pn:=0;
  for i:=1 to n do
    begin
      write('Zadajte ',i,' cislo: ');
      readln(c);
      if (c mod 2 <> 0) then pn:=pn+1;
    end;
    writeln('Pocet parnych: ',n-pn);
    writeln('Pocet neparnych: ',pn);
  readln;
end.