program tinhtong;
uses crt;
var s,gt:longint;
x,n,i:integer;
begin
clrscr;
write('Nhap x: '); readln(x);
s:=0; n:=0;
while s<10000 do
begin
gt:=1;
for i:=1 to n do
gt:=gt*x;
s:=s+gt;
n:=n+1;
end;
writeln('Tong nho nhat thoa man la: ',s);
writeln('Va so n nho nhat thoa man la: ',n);
readln
end.