Составить программку, вычисляющую x^n, где n целое положительноечисло.Выполнить в 3-х

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в ступени ',n,' одинаково ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while ilt;=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в ступени ',n,' одинаково ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until igt;n;
  writeln(x,' в степени ',n,' одинаково ',p );
end.