Решите , надоо) вывести на экран все степени числа а начиная от 1 до б ,а и б вводятся клавиатурой . буду

Var
a,b,i,j,c:integer;
begin
  writeln('Vvedite a:');
  readln(a);
  writeln('Vvedite b:');
  readln(b);
  writeln('Stepeni chisla: ',a);
  for i:=1 to b do
  begin
  c:=1;
  for j:=1 to i do
  c:=c*a;
  writeln(c);
  end; 
end.

Pascal

 var   
a,b,i,r : integer;    
begin 
readln (a,b); 
r := 1;
 for i := 1 to b do
  begin    r:= r * a;
   writeln (a,'^',i,'=',r);
  end;  
end.