問い　以下のプログラムが何を意図してるかおねがいします。

program test(input,output);
var I,n,s:integer;
begin
read(n);
s:=0;
i:=1;
while i ＜=2*n do
begin
　　　ｓ:＝ｓ＋i*i
i:＝i+2
end;
writeln(`n=`,n,`のときs=`,s)
end

★完全解答希望★