Question

Определите, что будет написано в результате работы следующей программы:
Var s, k: integer:
Begin
s:-1;
for k:-1 to 4 do
s-s+2+k;
write(s);
End.