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

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