Var s,k: integer; begin s := 0; for k := 6 to 12 do s := s + 10; writeln(s); end.

erparsian2017    1   12.05.2020 14:24    0