Var s,k: integer
begin
s:=0;
for k:=-5 to 10 do
s:=2*k+s;
writeln(s)
end

Mishgan21    3   14.05.2020 18:25    0