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

Нахождение НОК двух чисел, оформите под вашу задачу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.