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

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;