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