uses crt; var a,n:integer; {--------------chuong-trinh-con-luy-thua----------------} function lt(x,y:integer):longint; var luythua:longint; i:integer; begin luythua:=1; for i:=1 to y do luythua:=luythua*x; lt:=luythua; end; {--------------chuong-trinh-chinh-------------------} begin clrscr; write('Nhap a='); readln(a); n:=0; repeat n:=n+1; until lt(a,n)>=100; writeln(n); readln; end.