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

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

1поколение: период 1946-1956; элемент базы: электронные лампы; название компьютера: eniac; характеристика: 10-20тысяч обрабатывал в секунду огромные размеры; память: перфокатор, перфоленты. 2 поколение: 1956-1964; элемент базы: ; название компьютера: бэсм-3, урал-1; характеристика: 100.000-1.000.000. оборобатывал в секунду,большие размеры: память: магнитные ленты. 3 поколение: период 1964-1971; элемент базы: интеграмая схема (микросхема); название компьютера: ibm 360/370; характеристика: 10.000.000.обрабатывал в секунду; память: магнитный диск, магнитные ленты. 4 поколение: период 1971 по наше время; элемент базы: микросхема; название компьютера: пк; характеристика: 10млрд обрабатывал в секунду: память: жёсткий диск, флешке, лазерный диск. 5 поколение: период конец хх веков; элемент базы: искусственный интеллект, сбис; название компьютера: gigant; характеристика: в разработки; память в разработки.

11100011110011100₂ = 11 100 011 110 011 100₂ = 343634₈11100011110011100₂ = 1 1100 0111 1001 1100₂ = 1с79с₁₆7351₈ = 111 011 101 001₂ = 111011101001₂7351₁₀ / 2 = 3675, остаток 13675/2 = 1837, остаток 11837/2 = 918 , остаток 1918/2 = 459 , остаток 0459/2 = 229, остаток 1229/2 = 114, остаток 1114/2 = 57, остаток 057/2 = 28, остаток 128/2 = 14, остаток 014/2 = 7, остаток 0,7/2 = 3, остаток 13/2 = 1, остаток 11/2 = 0, остаток 17531₁₀ = 11100101110111₂ а10bc1₁₆ - основание не указано, но скорее всего, оно и так  шестнадцатиричное и тут нечего переводить.