Заменить буквы цифрами, чтобы выполнилось неравенство - QBasic

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

Составить программу в QBASIC Заменить буквы цифрами, чтобы выполнилось неравенство: x8zy=zyx*zy x8zy- как я понял,это четырёхзначное сило zyx-трехзначное zy- двузначное

ошибка равенство*

Решение задачи: «Заменить буквы цифрами, чтобы выполнилось неравенство»

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

CLS
DEFLNG A-Z
 
FOR x = 1 TO 9
FOR z = 1 TO 9
   A = 100 * z + 30 + x
   B = 10 * x + z
   C = 20 + x
   IF A = B * C THEN PRINT A; "="; B; "*"; C
NEXT z
NEXT x
 
END

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

CLS — очистка экрана
DEFLNG A-Z — перевод строки в верхний регистр
FOR x = 1 TO 9 — цикл от 1 до 9
FOR z = 1 TO 9 — цикл от 1 до 9
A = 100 * z + 30 + x — присваивание переменной A значения, равного 100 умноженному на z плюс 30 и x
B = 10 * x + z — присваивание переменной B значения, равного 10 умноженному на x плюс z
C = 20 + x — присваивание переменной C значения, равного 20 плюс x
IF A = B * C THEN PRINT A;=; B;*; C — проверка неравенства, если оно верно, то выводится значение переменной A, затем строка =, значение переменной B и значение переменной C
NEXT z — переход к следующей итерации внешнего цикла
NEXT x — переход к следующей итерации внутреннего цикла
END — завершение программы