Pascal/Turbo Pascal - Máximo común divisor

{A ver si esto te sirve}

 program el_maximo_comun_divisor;

 uses

    crt;

   var

     n1, n2, res : integer;

   procedure entrada(var b, w : integer);

   begin

      write('   Entre El Primer Numero Entero : ');

      readln(b);

      writeln;

      write('   Entre El Segundu Numero Entero : ');

      readln(w);

   end;

   function mcd(b, w : integer) : integer;

   begin

      mcd := 0;

      res := 1;

      while res <> 0 do

      begin

        res := b mod w;

        b := w;

        w := res;

     end;

     mcd := b;

  end;

  begin

     clrscr;

     entrada(n1,n2);

     clrscr;

     writeln('   El MCD De Los Numeros [ ',n1,' .. ',n2,' ] Es');

     writeln('   El MCD Es = ',mcd(n1,n2));

     readkey;

  end.