Сколько раз будет выполнен оператор write?

Var s, n: integer;
Begin
s := 5;
For n := 2 to 4 do
s := s + \(n\-1\);
Wrnteln\(s\);
End.