uses crt;
var b,x,f,g: integer;
    z: char;
begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
     write('Zadej jakym cislem mam zkouset delit: '); readln(b);
     f:=0; g:=0;
     write('Zadej cislo: ');readln(x);
     while x>=0 do
           begin
           if x mod b=0 then begin g:=g+1; writeln('Delil jsem bez zbytku :-)'); end;
           f:=f+1;
           write('Zadej cislo: ');readln(x);
           end;
     writeln('Pocet cyklu byl ',f,' a pocet cisel delenych bez zbytku bylo ',g);
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.