Дано целое число n(> 0). найти сумму (1+2)^2+(2+3)^2++(n+(n+1))^2 написать программу для pascal

Program xxx; 
var N, Sum: integer;
var i: byte;
begin
writeln ('введите N');
readln (N);
Sum:=0;
for i:=1 to N do begin 
  Sum:=Sum+sqr(i+(i+1))
end;
writeln (Sum)
end.