Tim n de A^n >= 100

uses crt;
var a,s,n:integer;
begin
    clrscr;
    write('Nhap A: '); readln(a);
    s:=1; n:=0;
    while s<100 do
        begin
            n:=n+1;
            s:=s*a;
        end;
    write('n= ',n);
    readln
end.