program parzystosc;

{$APPTYPE CONSOLE}

type
  tablica = array[1..20] of integer;

var
tab: tablica;
i, ile, ilosc: integer;
dane: text;

function wczytaj(var tabl: tablica):integer;
var
  i, ile: integer;
begin
  write('Podaj ilosc elementow: ');
  readln(ile);

  for i:= 1 to ile do begin
    write('Podaj ', i, ' wartosc: ');
    readln(tabl[i]);
  end;
  wczytaj := ile;
end;

function robota(var tabl: tablica; ile:integer): integer;
var
  i, ilosc: integer;
begin
  ilosc:=0;
  for i:= 1 to ile do begin
    if ((tabl[i] mod 2) = 0) then begin
      ilosc:= ilosc + 1;
    end;
  end;
  robota:= ilosc;
end;

procedure wypisz(var tabl: tablica; ilosc :integer);
var
  i, ile : integer;
begin
  assign(dane, 'wynik.txt');
  rewrite(dane);

  write(dane, 'Parzystych elementow bylo: ');
  writeln(dane, ilosc);
  close(dane);
  write('Parzystych elementow bylo: ', ilosc);
end;

begin
ile := wczytaj(tab);
ilosc := robota(tab, ile);
wypisz(tab, ilosc);
readln
end.