Написать программу приведения дробей к наименьшему общему знаменателю. Пользователь вводит две дроби. Программа приводит дроби к наименьшему общему зн

Написать программу приведения дробей к наименьшему общему знаменателю. Пользователь вводит две дроби. Программа приводит дроби к наименьшему общему знаменателю. СРОЧНО

  • Нахождение НОК двух чисел, оформите под вашу задачу
    var
     x, y: integer;
    function NOD(x, y: integer): integer;
    begin
    if x<>0 then NOD:=NOD(y mod x, x)
    else NOD:=y;
    end;
    function NOK(x, y: integer): integer;
    begin
    NOK:=(x div NOD(x,y))*y;
    end;
    begin
    read(x, y);
    write(NOK(x, y));
    end.