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.