Найти наибольший общий делитель двух натуральных чисел M и N (алгоритм Евклида) НАПИШИТЕ ПРОГРАММУ ПАСКАЛЯ.

 function nod( a, b: longint): longint;

 begin

  while (a <> 0) and (b <> 0) do

    if a >= b then

      a:= a mod b

    else

      b:= b mod a;

  nod:= a + b;

 end;

Объяснение:

 function nod( a, b: longint): longint;

 begin

  while (a <> 0) and (b <> 0) do

    if a >= b then

      a:= a mod b

    else

      b:= b mod a;

  nod:= a + b;

 end;