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

var

x,y,i,osn: Integer;

begin

Readln(x, y);

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

for i:= 1 to y-1 do

x *= osn;

Writeln(x);

end.

Вот:

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.

Объяснение: