Пользуясь ограничениями предыдущей задачи, (в арифметических выражениях можно…

Универсальное var i,n,x,y: integer; Begin read (x,n); for i: =1 to n do y: =y*x; writeln (y); End. Частныеy=x*x | x^2y=y*y | x^4y=y*y | x^8 a=x*xy=a*ay=y*yy=y*a=x^10 y=x*xy=y*yy=y*yy=y*y=x^16y=y/x=x^15