Вычислить выражения, используя для организации цикла операторы FOR - NEXT - QBasic

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

1) на поле (a,b) шахматной доски расположен ферзь. Определить угрожает ли он полю (c,d) 2)Вычислить выражения,используя для организации цикла операторы FOR..NEXT(значения переменной n задавать с клавиатуры) 3)Определить сумму ряда с заданной точность t(t>0) и число слагаемых, необходимых для достижения этой точности. Точность считается достигнутой, если очередной слагаемое по модулю меньше t (это и последующее слагаемое не учитываются). Использовать для организации цикла операторы DO...Loop или WHILE (значения буквенных переменных задавать с клавиатуры) (здесь до бесконечности,просто не нашел символа бескончености нарисовал похожий)

Решение задачи: «Вычислить выражения, используя для организации цикла операторы FOR - NEXT»

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

INPUT a, b
INPUT c, d
IF a = c OR b = d OR ABS(a - c) = ABS(b - d) THEN
    PRINT "YES"
ELSE
    PRINT "NO"
END IF

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

Входные данные: a, b, c, d (четыре числа)
Проверка условия: проверяется, выполняется ли хотя бы одно из условий: a = c, b = d, ABS(a - c) = ABS(b - d)
Вывод: если условие выполняется, выводится YES, иначе NO