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

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;