Найти тройку натуральных чисел, которая является тройкой Пифагора - QBasic

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

Напишите на языке программирования qbasic, чтобы тройка натуральных чисел являлась тройкой т.Пифагора, т.е. c^2=a^2+b^2

Решение задачи: «Найти тройку натуральных чисел, которая является тройкой Пифагора»

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

 REM Пифагоровы тройки
    DIM x, m, i AS INTEGER
    DIM z AS SINGLE
    CLS
    FOR x = 3 TO 100 STEP 2
       FOR y = 4 TO 100 STEP 2
          z = SQR(x * x + y * y)
          IF z <> INT(z) THEN 1
          IF x < y THEN m = x ELSE m = y
          FOR i = 2 TO m \ 2 + 1
             IF x MOD i = 0 AND y MOD i = 0 THEN 1
          NEXT i
          PRINT x, y, z
    1  NEXT y
    NEXT x
    END

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

В этом коде выполняется поиск пифагоровых троек. Вот список действий, которые происходят в коде:

Объявление переменных:
- x, m, i (целые числа)
- z (число с плавающей точкой)
Очистка экрана
Поиск пифагоровых троек:
- Переменная x принимает значения от 3 до 100 с шагом 2
- Переменная y принимает значения от 4 до 100 с шагом 2
- Вычисляется значение z как квадратный корень из суммы квадратов x и y
- Если z не является целым числом, то выполняется следующий блок кода
- Если x меньше y, то m принимает значение x, иначе m принимает значение y
- Для i от 2 до (m / 2) + 1 проверяется, делится ли x и y на i без остатка
- Если x и y делятся на i без остатка, то выполняется следующий блок кода
- Выполняется печать значений x, y и z
- Переход к следующему значению y
- Переход к следующему значению x
Конец программы