Составить программу сокращающую обыкновенные дроби входные данные: два целых числа — числитель и знаменатель дроби. выходные данные: два целых числа — числитель и знаменатель скрашенной дроби.- QBasic(Бейсик)

INPUT a, b
c = a
d = b
IF c < d THEN SWAP c, d
DO WHILE c <> 0 AND d <> 0
    c = c MOD d
    SWAP c, d
LOOP
PRINT a / c; "/"; b / c

Тестирование выполнено в программе QB64 ( Скачать )