найти сумму первых 441 нечетных чисел (Паскаль)

Var i,k,sum:integer;Begini:=1;k:=1;sum:=0;while i<=441 do beginsum:=sum+k;i:=i+1;k:=k+2;end;Writeln(sum);End.