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