Программа для НОК и НОД на Паскале

Здесь приведен код программы на языке Паскаль. Программа вычисляет НОД и НОК с использованием алгоритма Евклида.

Наибольшим общим делителем (НОД) для двух целых чисел m и n называется наибольший из их общих делителей. Приведем пример: для чисел 70 и 105 наибольший общий делитель будет равен 35. НОД существует и однозначно определён, если хотя бы одно из чисел m или n не ноль.

Наименьшее общее кратное (НОК) двух целых чисел m и n есть наименьшее натуральное число, которое делится на m и n. Например, для 3 и 5, НОК равен 15, а для 2 и 4 НОК равен 4.

program nodnok;
var a,b:longint;

function NOD(x,y:longint):longint;
 begin
 if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;

function NOK(x,y:longint):longint;
 begin
 NOK:= (x div NOD(x,y)) * y;
 end;

Begin
 Write('Введите a и b: '); 
 Readln(a,b);
 Writeln('НОД ',a,' и ',b,' = ', NOD(a,b));
 Writeln('НОК ',a,' и ',b,' = ', NOK(a,b));
Readln;
End.