Найти сумму 4+9++m^2, лишь из слагаемых, меньших k.

uses crt; var m,p,i:integer; begin write('M = '); read(m); p:=1; for i:=1 to m do begin p:=p*(2*i+1); end; write('p = ',p); end.

Можно решить арифметически:
program zad;
var m:integer;
begin
read(m);
writeln((m*(m+1)*(2*m+1))/6-1);
end.