Как я понял, нужна программа. 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.
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.