Egész típus - példaprogram

program Oszt;
uses Crt;				{A képernyő törlést tartalmazó unit}
var Osztando, Hanyados, Maradék: byte;
begin
  ClrScr;				{Képernyő törlés}
  Write('Kérem az osztandót: ');
  ReadLn(Osztando);
  Hanyados := Osztando div 3;	
  Maradek := Osztando mod 3;			
  WriteLn('A hányados: ', Hanyados);
  WriteLn('A maradék: ', Maradek);
  ReadLn				 
end.