program Divisione con resto;
        // autore :  Mimmo Corrado
        // versione e data: 1 del 10-04-2011
        // descrizione :  esegue la divisione con resto

 uses crt;
 var
    numeratore, denominatore , quoziente, resto, contatore: integer;
 begin
   contatore:=0;
   quoziente:=MaxInt;
   resto:=denominatore;
   write ('Inserisci il dividendo : ');
   readln (numeratore);
   write ('Inserisci il divisore : ');
   readln (denominatore);

   while (quoziente>denominatore) do
        begin
        contatore:=contatore+1;
        quoziente:=numeratore - denominatore;
        numeratore:=quoziente;
        end;

   resto:=quoziente;

   writeln ('Quoziente = ', contatore);
   writeln ('Resto = ', resto);
   readln;
 end.