Определить общее количество оценок за семестр. - Turbo Pascal

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

В первый день семестра Виктор получил одну оценку. Каждый следующий день парень получает две оценки больше, чем в предыдущий учебный день. Определите общее количество оценок, получит Виктор в течение года. Количество дней не превышает 180. Входные данные: количество дней в учебном году Выходные данные: общее количество оценок.

Решение задачи: «Определить общее количество оценок за семестр.»

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

var
    n: LongWord;
begin
    Write('Введите количество дней: '); ReadLn(n);
    WriteLn('Количество оценок: ', Sqr(n));
end.

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

В данном коде происходит следующее:

Объявляется переменная n типа LongWord.
Выводится сообщение «Введите количество дней: », после чего считывается значение переменной n с помощью функции ReadLn.
Выводится сообщение «Количество оценок: », после чего вычисляется квадрат значения переменной n с помощью функции Sqr.
Код завершается без использования вложенных списков.