Var s,k: integer; begin         s : = 1;         for k : = 0 to 4 do                 s : = s * 3;         writeln(s); end.​

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