1.Вычислить значение у=x6 рациональным способом, то есть за минимальное количество операций; x – произвольное натуральное число, не превышающее 5.
Var x:integer; begin read (x); if (x<=5) then writeln (power (x,6)) else writeln (x,'>5'); end.