Program openmouth; var X,R:integer; begin randomize; R := trunc(random*101); repeat readln(X); if X > R then writeln('Too large'); if X < R then writeln('Too small') until X=R end.