var
n,i,j,low,high:integer;
s:string;
begin
low:=0;
high:=11;
while true do
begin
readln(n);
if n=0 then exit;
readln(s);
if (s='right on') and (n<high) and (n>low) then
begin
writeln('Stan may be honest');low:=0;high:=11;
end
else if (s='right on') then
begin writeln('Stan is dishonest');low:=0;high:=11; end;
if (s='too high') and (high>n) then high:=n;
if (s='too low') and (low<n) then low:=n;
end;
end.
现在还有人用PASCAL吗?
(这代码是AC的)