語言：pascal
程式簡單，通俗易懂，覺得好請點贊= =
坑點：回答限制次數是隨機的

uses crt;
var
  s:longint;
  i,n,m,x,y,b,ss:longint;
begin
   randomize;
   ss:=random(20);
   while ss<8 do ss:=random(20);
   writeln('You can answer ',ss);
   s:=random(99999);
   while (s<10000) do s:=random(99999);
   x:=10000; y:=99999;
   repeat
     inc(i);
     writeln(i,'.'
 
);
     writeln(x,'~',y);
     readln(m);
     if m>s then writeln('So big') else
     if m<s then writeln('So small') else
                 begin
                   randomize;
                   b:=random(3);
                   if b=0 then writeln('+_+') else
                   if b=1 then writeln('<>_<>'
 
) else
                   if b=2 then writeln('$-_-$') else
                   if b=3 then writeln('!#._.#!');
                 end;
     if m>s then if m<y then y:=m;
     if m<s then if m>x then x:=m;
   until (m=s) or (i=ss);
   if m<>s then
   begin
     writeln('You fried.');
     writeln('The real answer is '
 
,s);
   end;
 delay(1000);
 writeln('Thank you for playing!');
 writeln('The game will exit in');

 delay(1000);
 writeln('3');
 delay(1000);
 writeln('2');
 delay(1000);
 writeln('1');
 delay(1000);
end.