Если 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.