program Titov_Papa;
uses crt;
var chislo, zchislo, n: integer;
begin
clrscr;
randomize;
n:=0;
zchislo:=random(10);
repeat
n:=n+1;
writeln('Input chislo: ');
readln(chislo);
if chislo=zchislo then writeln('Very Good!!!');
if chislo<zchislo then writeln('BOLSHE');
if chislo>zchislo then writeln('MENSHE');
until (zchislo=chislo) or (n=5);
if n=5 then
begin
writeln('LIMIT POPYTOG ISCHEPAL, VY PROIGRALI, BECKHAM - LOL');
writeln('BYLO ZAGADOANO CHISLO: ');
writeln(zchislo);
end;
readkey;
end.