РАСПИСАТЬ РЕШЕНИЕ
var s,k,i: integer;
begin
s := 0; k:=4;
for i := 2 to 6 do
s := s + 6;
k:=s+k*2;
writeln(k);
end.

lubivyjn    3   15.05.2020 13:56    3