Program p46_3;
{--------------------------------------------------------------
    Sa se afle cea mai mica putere a numarului natural dat n 
    care intrece numarul dat a !
 --------------------------------------------------------------}    

var 
    n, a, p, pp: longint;

BEGIN
    n := 0;
    while n<=0 do begin write('n = '); readln(n); end;
    write('a = '); readln(a);
    writeln;
    
    p  := 1;
    pp := n;
    while(pp < a) do begin
        pp := pp*n;
        inc(p);
    end;
    
    writeln(n, ' la puterea ', p, ' este egal cu ', pp,' si este mai mare ca ', a, ' !');
    readln;
END.
