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

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