Нахождение наибольшего общего делителяНахождение наибольшего общего делителя

[A_Orlov]

Помогите с задачкой!
Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B ¹ 0; НОД(A, 0) = A.

[Филантроп]

var x,y:integer;
function nod( a, b: longint): longint; 
  begin
   while (a <> 0) and (b <> 0) do begin
     if a >= b then 
       a:= a mod b 
     else 
       b:= b mod a;
   end;
   nod:= a + b;
  end;
begin
readln(x);
readln(y);
writeln(nod(x,y));
readln;end.