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

Function Nod(a,b:integer):integer;
begin
 if a>b then Nod:=Nod(a-b,b)
 else
   if a<b then Nod:=Nod(a,b-1)
   else  Nod:=a; 
end;