Вывести на дисплей календарь на текущий год - QBasic

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

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

Решение задачи: «Вывести на дисплей календарь на текущий год»

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

DECLARE FUNCTION f! (x!)
CLS
 
FOR x = 0 TO 40
   n = f(x)
 
   FOR d = 2 TO n - 1
      IF n MOD d = 0 THEN 100
   NEXT d
   PRINT USING "    ####"; n;
100
NEXT x
END
 
FUNCTION f (x)
   f = x ^ 2 + x + 41
END FUNCTION

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

Список действий в коде:

DECLARE FUNCTION f! (x!) - объявление функции с именем f и аргументом x
CLS - очистка экрана
FOR x = 0 TO 40 - цикл от 0 до 40 проходящий по всем значениям x от 0 до 40
n = f(x) - присваивание значения функции f переменной n
FOR d = 2 TO n - 1 - цикл от 2 до n-1 проходящий по всем значениям d от 2 до n-1
IF n MOD d = 0 THEN 100 - проверка условия, если n делится на d без остатка, то переход к 100
NEXT d - выход из цикла d
PRINT USING ####; n; - вывод значения n на экран с форматированием
100 - метка, на которую происходит переход при выполнении условия в цикле d
NEXT x - выход из цикла x
END - конец программы
FUNCTION f (x) - определение функции с именем f и аргументом x
f = x ^ 2 + x + 41 - формула для вычисления значения функции f
END FUNCTION - конец определения функции f