{zadavaji se cisla,tak dlouho dokud 0}
program poc;
uses crt;
var c,pl,ps:integer;
begin
    clrscr;
    repeat
    writeln('Zadej cislo');
    readln(c);
    if (c mod 2=0) and (c<>0) then ps:=ps+1;
    if c mod 2<>0 then pl:=pl+1
    until c=0;
    writeln('Pocet sudych: ',ps);
    writeln('Pocet lichych: ',pl);
    readln;
end.