VAR traloi:STRING;
    i,a,b:INTEGER;
BEGIN
   writeln('Hay nghi ra mot con so 1->100, nho nha, bay h chuong trinh se doan trong 7 lan, ban chi can tra loi lon nho hoac bang');
   a:=100;
   b:=1;
   FOR i:=1 TO 7 DO
   BEGIN
      writeln('lan doan thu ',i,':',round((a+b)/2));
      readln(traloi);
      IF(traloi='bang')THEN halt;
      IF(traloi='nho')THEN a:=round((a+b)/2);
      IF(traloi='lon')THEN b:=round((a+b)/2);
   END;
END.