Составить алгоритм решения ребуса QBASIC

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

Помогите с программой Составить алгоритм решения ребуса ДРУГ — ГУРД = 2727 (различные буквы обозначают различные цифры, старшая — не 0). Заранее спасибо.

Решение задачи: «Составить алгоритм решения ребуса QBASIC»

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

                            CLS
 
FOR x = 3 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
FOR u = 1 TO 9
   a = 111 * (x - u)
   b = 10 * (z - y)
   c = x <> y AND x <> z AND x <> u AND y <> z AND y <> u AND z <> u
   IF a = b + 303 AND c THEN PRINT 1000 * x + 100 * y + 10 * z + u;
NEXT u, z, y, x
END
                        