Составьте программу вычисления выражения (разными применяя каждый из операторов while,repeat,for) a^p, где p - целое число. pascal / надо.

1)Это с

var a,p,i,c:integer;
begin
  readln(a);
  readln(p);
  c:=1; i:=0;
  while i<p do
  begin
    c:=c * a;
    inc(i);
  end;
  writeln(c);
  readln;
end.

2) Это с

var a,p,i,c:integer;
begin
  readln(a);
  readln(p);
  c:=1; i:=0;
  repeat
    c:=c * a;
    inc(i);
  until i=p;
  writeln(c);
  readln;
end.

3) Это с

var a,p,i,c:integer;
begin
  readln(a);
  readln(p);
  c:=1;
  for i:=1 to p do
    c:=c * a;
  writeln(c);
  readln;
end.