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

Нютикккк    2   22.04.2020 22:34    3