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