{* Нахождения НОД и НОК двух чисел *}

Unit SAMPLE027;
Interface
Implementation
Begin
 writeln('Нахождения НОД и НОК двух чисел');
End.

Program pas;

Uses sample027.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : longint;
  b : longint;
Function NOD(x, y : longint) : longint; { фукнция поиска наиб. общ. делителя }
Begin
  If x0 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
  readln(a, b);
  writeln( 'НОД этих чисел = ', NOD(a, b) );
  writeln( 'НОК этих чисел = ', NOK(a, b) );
End.