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

Function NOD (a, b: Integer): Integer; Var tmp, r: Integer; Begin If b > a Then Begin tmp: =a; a: =b; b: =tmp; End; tmp: =a; While tmp > 0 Do Begin Result: =tmp; tmp: =tmp — b; End; End; Пример программы с использованием данной функции: Program Example; Var a, b: Integer; Function NOD (a, b: Integer): Integer; Var tmp, r: Integer; Begin If b > a Then Begin tmp: =a; a: =b; b: =tmp; End; tmp: =a; While tmp > 0 Do Begin Result: =tmp; tmp: =tmp — b; End; End; Begin Write ('a='); ReadLn (a); Write ('b='); ReadLn (b); Write ('НОД: ', NOD (a, b); ReadLn; End.