{ DELENIE.PAS                                                       }
{ Program na delenie dvoch cisel.                                   }
{                                                                   }
{ Author: RaptoR (Juraj Danis)                                      }
{ Date  :19.1.2009                             http://www.trsek.com }
 
program delenie;
uses crt;
var a,b,vysledok,zvysok:integer;
    c:char;
 
BEGIN
repeat
 clrscr;
 writeln('Zadaj delenec');
 readln(a);
 writeln('Zadaj delitel');
 readln(b);
 vysledok:=a div b;
 zvysok:=a mod b;
 
 writeln(a,':',b,'=',vysledok,' zvysok ',zvysok);
 writeln('Chces opakovat? Y/N');
 readln(c);
until c='n'
end.