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

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку