Определите, что будет выведено на экране?
var s, n: integer;
begin
s := 5;
for n := 2 to 4 do
s := s + (n-1);
writeln(s);
end.