ДАЮ 30 Б

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

Хорошо, если вы не используете функции и не используете библиотеки(типа crt)

var i, y, x, xy:integer;

begin

write('x=');

readln(x);

write('y=');

readln(y);

xy:=x;

for i:=1 to (y-1) do

begin

xy:=xy*x;

end;

writeln(xy);

end.