Задача в Паскаль. написать процедуру и функцию нахождения NOD 2

Question

Задача в Паскаль. написать процедуру и функцию нахождения NOD 2

Answer 1

Function Nsd(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;
nsd:=a+b;
end;