4.5

program project1;
var
  plik1:textfile;
  linia:string;

  function ile(var ln:string):boolean;
  var
    i,ilea:integer;
  begin
  ilea:=0;
  for i:=1 to length(ln) do
      begin
      if (ln[i]='a') then ilea:=ilea+1;
      if (ln[i]='A') then ilea:=ilea+1;
      end;
  if ilea mod 2 =0 then result:=TRUE
  else
  result:=FALSE;
  end;

begin
  Assignfile(plik1, 'F:\pascal\we5.txt');
  Reset(plik1);
  while not EOF(plik1) do
  begin
  readln(plik1,linia);
  writeln(ile(linia));
  end;
  closefile(plik1);
  readln;
end.