написать программу получить степени a:a,a^2,a^3,...., меньше чем b Делать в pascal abc, ребят помогите пожалуйста

var a,b,p:integer;beginwrite('a = ');readln(a);write('b = ');readln(b);p:=a;while p<b do begin write(p,' '); p:=p*a; end;end.Пример:a = 2b = 202 4 8 16