что означает последняя часть в этом коде?

[Rondo]

с того места где ----------------------!

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
Math;

var
a : Integer; L:Real;

function D(N : Integer):Real;
var
i : Integer;
S : Real;
begin
S := 0;
for i:=1 to N do
begin
S := S + sqr(2*i-1);
end;
D:=S;
end;
--------------------------
begin
For A:=1 to 10 do
begin
L := D(A);
writeln('Argument: ',A,' Function: ',L:2:5);
end;

// Контрольное значение
A := 10;
L := A*(4*sqr(A)-1)/3;
writeln('Control number: ', L:2:5);

writeln('Press Enter key to finish work.');
Readln;
end.

[DoGFoX]

begin
For A:=1 to 10 do //для А от 1 до 10 делать
begin
L := D(A); // L присваиваем результат работы функции D
writeln('Argument: ',A,' Function: ',L:2:5); //вывод на экран
end;

// Контрольное значение
A := 10; 
L := A*(4*sqr(A)-1)/3;
writeln('Control number: ', L:2:5);

writeln('Press Enter key to finish work.');
Readln;
end.

примерно так