Определить, что результатами вычислений по формуле являются простые числа - QBasic

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

Составить программу для проверки утверждения: «Результатами вычислений по формуле x2 + x + 41 при 0 ≥ х ≥ 40 являются простые числа». Все результаты вывести на экран.

PRINT "Zadacha9"
INPUT "i=", i
INPUT "x=", x
FOR i = 0 TO 40
NEXT i
g = x ^ 2 + x + 41
PRINT "Vivod="; g
END

Решение задачи: «Определить, что результатами вычислений по формуле являются простые числа»

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

FOR x=0 TO 40
a=x^2+x+41
FOR i=2 TO a-1
IF a MOD i=0 THEN f=1
NEXT
NEXT
IF f=0 THEN PRINT "Yes" ELSE PRINT"No"

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

Задается диапазон переменной x от 0 до 40 с шагом 1.
Вычисляется значение переменной a как x^2 + x + 41.
Задается диапазон переменной i от 2 до a-1 с шагом 1.
Проверяется, делится ли a на i без остатка (a MOD i=0).
Если остаток от деления равен 0, то переменной f присваивается значение 1.
Переменная f инкрементируется на 1.
Если f не равно 1, то переменной f присваивается значение 0.
Выводится на экран строка Yes, если f равно 1, иначе выводится строка No.