Var x,n,i,t,k:integer; begin read(x,n); t:=0; k:=1; while tbegin k:=k*x; inc(t); //t:=t+1 end; end. Вроде так.