Найти значение выражения - Pascal (80814)

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

Найти суму 4+16+36+...+(2n)^2 ?

Решение задачи: «Найти значение выражения»

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

Program HelloWorld(output);
var 
    i, n, l, sum: Integer;
begin
    write('enter natural number: '); readln(l);
    sum := 0;
    for i := 1 to l do begin
        n := 4 * i * i;
        writeln('i=', i, ', ', n);
        sum := sum + n;
    end;
    writeln('sum: ', sum);
end.

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

Объявляется переменная i типа Integer.
Объявляется переменная n типа Integer.
Объявляется переменная l типа Integer.
Объявляется переменная sum типа Integer.
Выводится сообщение enter natural number: с помощью команды write на экран.
Считывается значение, введенное пользователем, и сохраняется в переменную l с помощью команды readln.
Присваивается значение 0 переменной sum.
Выполняется цикл от 1 до l с шагом 1.
На каждом шаге цикла переменной n присваивается значение 4 i i.
На каждом шаге цикла выводится сообщение с текущими значениями i и n на экран.
К значению переменной sum прибавляется значение переменной n.
По завершении цикла выводится сообщение sum: и значение переменной sum на экран.