program divmod; uses crt; var a,b,x,y:integer; begin clrscr; writeln('Add meg a szamokat!'); readln(a,b); x:=a div b; y:=a mod b; writeln (x, ' ', y); readln; end.