program game;
uses crt;
var a,b,c,k:integer;
d:char;
begin
clrscr;
write('„ ў ©вҐ Ї®ЁЈа Ґ¬. ');
write('‡ ¤г¬ ©вҐ 楫®Ґ зЁб«® Ё ­ЁЄ®¬г ­Ґ Ј®ў®аЁвҐ ҐЈ®. Ђ п Ї®б।бвў®¬ ў иЁе ®вўҐв®ў ­  ¬®Ё ў®Їа®бл гЈ ¤ о ҐЈ®. ');
write('‚ўҐ¤ЁвҐ ¤ў  楫ле зЁб« , в ЄЁе, зв® ЇҐаў®Ґ ¬Ґ­миҐ ўв®а®Ј®, Ё ¬Ґ¦¤г Є®в®ал¬Ё «Ґ¦Ёв § ¤г¬ ­­®Ґ ў ¬Ё зЁб«®: ');
readln(a,b);
k:=0;
repeat
k:=k+1;
c:=(a+b) div 2;
write('‚ иҐ зЁб«® ¬Ґ­миҐ, Ў®«миҐ Ё«Ё а ў­® ',c,'? ‚ Є зҐб⢥ ®вўҐв  ­ ЇЁиЁвҐ бЁ¬ў®« <, > Ё«Ё = ᮮ⢥вб⢥­­®: ');
readln(d);
case d of
'=':writeln('‚ иҐ зЁб«® а ў­® ',c,'.');
'<':b:=c;
'>':a:=c;
else writeln('‚л ­ҐЇа ўЁ«м­® ­ ЇЁб «Ё ®вўҐв ­  § ¤ ­л© ў®Їа®б.');
end;
until d='=';
writeln('џ гЈ ¤ « ў иҐ зЁб«® §  Є®«ЁзҐбвў® и Ј®ў, а ў­®Ґ ',k,'.');
readln
end.