оператор while

[PeRt]

Написать программу, с помощью оператора While, которая вычисляет наибольший общий делитель двух целых чисел.

[Филантроп]

function nod(x,y:integer):integer; 
var r:integer;
begin while y<>0 do begin
r:=x mod y; x:=y; y:=r;
end; nod:=x;end;