clrscr;ДАЮ 30 Б

Составить программу на языке Паскаль,возведения числа х в степень числа y.

var

   x, y, result:real;

begin

   readln(x, y);

   result := 1;

   if y > 0 then

   begin

       while y <> 0 do

       begin

           result := result * x;

           y := y - 1;

       end;

   end

   else if y < 0 then

   begin

       while y <> 0 do

       begin

           result := result * x;

           y := y + 1;

       end;

       result := 1 / result;

   end

   else result := 1;

   writeln('x^y = ', result);

end.