Question

Var s,k: integer; Begin s := 100; for k := 2 to 7do s := s + 1; writeln(s); End.

Answer 1

s =105 чего тут думать