Напишите программму(Паскаль), которая возводит данное естественное число x в естественную

Ответ:

Вот:

Pascal

var

 a,n,i:integer;

begin

 write('Введите а и п: ');

 read(a,n);

 writeln;

 for i:=2 to n do

   a:=a*a;

 write('Число в степени ',n,' одинаково ',a);

end.

Разъяснение:

var

x,y,i,osn: Integer;

begin

Readln(x, y);

osn:= x; // Переменная для основания

for i:= 1 to y-1 do

x *= osn;

Writeln(x);

end.