Вывести наибольшее количество точек, которую можно накрыть квадратом - Free Pascal

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

Всем доброго! Каким должен быть код программы? ............................................................ Какое наибольшее количество точек с целочисленными координатами можно на листе в клеточку накрыть квадратом со стороной a клеточек? Технические условия 2. Программа вводит из клавиатуры или формы натуральное число a (от 1 до 10000). 3. Программа выводит на экран наибольшее количество точек с целочисленными координатами, которую можно накрыть таким квадратом. Например,\1 - входные данные\4- исходные данные Объяснение: например, квадратом со стороной a = 1 можно одновременно накрыть точки (2;2), (2;3)(3;2) и (3;3).

Решение задачи: «Вывести наибольшее количество точек, которую можно накрыть квадратом»

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

var n:integer;
begin
    readln(n);
    writeln(sqr(n+1))
end.

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

В начале объявляется переменная n типа integer (целое число).
Затем с помощью функции readln() вводится значение переменной n.
И наконец, выводится результат вычисления квадрата значения переменной n с помощью функции sqr() + 1. Примерный алгоритм:
Ввести число
Вычислить квадрат числа + 1
Вывести результат