program Evklid2;
var
  a, b: integer;
 
(*----------------------------------------
Функция возвращает наибольший общий делитель двух
заданных целых чисел, используя алгоритм Евклида
Если одно или оба числа равны 0, возвращает
|a+b|
----------------------------------------*)
function NOD_Evklid (a, b : integer) : integer;
var
  r : integer;
begin
  {если хотя бы одно из чисел равно 0, НОД также равен 0}
  if ((a=0)or(b=0)) then begin
    NOD_Evklid := abs(a+B);
    exit;
  end;
  {оба числа ненулевые}
  r := a-b*(a div B);
  while r <> 0 do begin
    a := b;
    b := r;
    r := a-b*(a div B);
  end;
  NOD_Evklid := b;
end;
 
(*----------------------------------------
Функция возвращает наименьшее общее кратное двух
заданных целых чисел, используя функцию NOD_Evklid
----------------------------------------*)
function NOK_Evklid (a, b : integer) : integer;
begin
  NOK_Evklid := (a*B) div NOD_Evklid(a,B);
end;

begin
  writeln('Программа находит наименьшее общее кратное '+
  'двух заданных целых чисел, используя алгоритм Евклида '+
  'для нахождения НОД');
  write('Введите первое число ');
  readln(a);
  write('Введите второе число ');
  readln(B);
  {передаем в функцию модули чисел}
  writeln('НОК(',a,',',b,') = ',NOK_Evklid(abs(a),abs(B))); 
  writeln('Нажмите [Enter] для завершения программы');
  readln;
end.