Если y целое отрицательное число, то степень вычисляется так:x^y=(1/x)^/y/; а при y=0: x^0=1

Как я понял, нужна программа. Program Z; uses crt; //Для тех, у кого Pascal ABC var x,y:integer; begin readln(x); readln(y); if y<0 then ... x^y=(1/x)^y; //символ ^ в программировании не используется, либо через циклы тогда, либо через power(); но я не уверен что в паскале этот модуль будет работать. else x^0= 1 end.