Решение задач с использованием процедур в Delphi

[Деми]

Используя функцию нахождения наибольшего общего делителя, найти наименьшее общее кратное двух чисел.

[doktor255]

function gcd(m, n: integer): integer; // функция вычисления наибольшего делителя
var
  modulo: integer;
begin
  modulo := m mod n;
  if modulo = 0 then
    gcd := n
      else
        gcd := gcd (n, modulo)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  m, n, k : integer;
begin
  try
    m := StrToInt(Edit1.Text); // первое число
    n := StrToInt(Edit2.Text); // второе число
  except
    ShowMessage('Ошибка ввода. Вычисления остановлены'); // введены не числа
    Exit;
  end;
  k := gcd(m, n); // вычисляем наибольший общий делитель кратное
  m := m div k; // делим, получаем наименьшее кратное первого чила
  n := n div k; // делим, получаем наименьшее кратное второго чила
  ShowMessage(IntToStr(m) + ' ' + IntToStr(n)); // вывод результата на экран
end;

P.S. В следующий раз напиши хоть пожалуйста помогите. Иначе сам будешь решать.