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

ала213    3   13.08.2019 22:20    0