一个自己编的小游戏——猜数

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.