Ответ:

program z;

var a, n:integer;

procedure s(x,y:integer);

var i,s:integer;

begin

s:=1;

for i:= 1 to y do s:= s * x;

write('Степень числа равна: ',s)

end;

begin

write('Введите число: ');

readln (a);

write ('Введите степень числа: ');

read (n);

s(a,n)

end.