program SumOfSquares;

var
N, sum, i: integer;

begin
sum := 0;

write('Введите целое число N (> 0): ');
readln$N$;

for i := 1 to N do
begin
sum := sum + $(i+(i+1))\ast (i+(i+1))$;
end;

writeln${}^{\prime }Суммаквадратовравна{:}^{\prime },sum$;
end.