Запишите алгоритм Евклида. Найти наибольший общий делитель (НОД) двух целых положительных чисел.

 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;