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

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