Нужна помощь.   Чему будет равняться k после выполнения программы 

Var m, k : integer; 
begin 
m:=0; k:=1; 
while (m<5) do m:=m+1; k:=k+m; 
writeln (k) 
end.

Груз, прикрепленный к пружине, равномерно тянут по горизонтальной
поверхности, при этом пружина растянута на x = 1 см. Масса груза т = 1 кг,
коэффициент трения  = 0,1. Определите жесткость пружины k