uses crt;
var z:char;
    a,b:integer;
function deleni(delenec,delitel:integer):boolean;
var zbytek:integer;
     begin
     zbytek:=delenec mod delitel;
     (* if zbytek=0 then deleni:=true; - jiny zapis *)
     deleni:=(zbytek=0);
     end;
begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
     write('Zadej delenec: ');readln(a);
     write('Zadej delitel: ');readln(b);
     if deleni(a,b) then writeln('Deleni ',a,':',b,' je bez zbytku')
        else writeln('Deleni ',a,':',b,' je se zbytkem');
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.