Вычислить значение y=x^6 рациональным т.е за минимальное количество операций, x-произвольное натуральное число, не превышающее 5

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