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