Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N. - QBasic

Формулировка задачи:

Помогите, пожалуйста, решить задачку. Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N.

Решение задачи: «Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N.»

Листинг программы

CLS
RANDOMIZE TIMER
INPUT "Vvedite M(chislitel) : ", M
INPUT "Vvedite N(Znamenatel): ", N
f=1
DO
  P = M * f
  Q = N * f
  f = f + 1
  PRINT "P ="; P, "Q ="; Q
LOOP UNTIL f > 15

Объяснение кода листинга программы

CLS - очистка экрана
RANDOMIZE TIMER - установка случайного числа в качестве начальной точки для генератора случайных чисел
INPUT Vvedite M(chislitel) :, M - ввод значения переменной M с клавиатуры
INPUT Vvedite N(Znamenatel):, N - ввод значения переменной N с клавиатуры
f=1 - инициализация переменной f единицей
DO - начало цикла
P = M * f - вычисление значения переменной P как произведение M и f
Q = N * f - вычисление значения переменной Q как произведение N и f
f = f + 1 - увеличение значения переменной f на единицу
PRINT P =; P, Q =; Q - вывод значений переменных P и Q на экран
LOOP UNTIL f > 15 - продолжение цикла до тех пор, пока значение переменной f не станет больше 15