Var s, n: integer;
Begin
s := 2;
For n := 2 to 5 do
s := s + n*2;
Writeln(s);
End.
напишите трассировочную таблицу

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