Выделите операторы, образующие тело цикла.
[Var i, x : integer;]
Begin
[x:=0;]
For i:=1 to 10 do
Begin
[Write(x);]
[x:=x+i;]
end;
[Write(i)]
End.

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