1.вычислить значение у=x6 рациональным то есть за минимальное количество операций; x – произвольное натуральное число, не превышающее 5.

Var x:integer;
begin
read (x);
if (x<=5) then writeln (power (x,6)) else  writeln (x,'>5');
end.