uses
crt;

function da: boolean;
var
c: char;
begin
  repeat
    c:=#0;
    if keypressed then
    begin
      c:=readkey;
      case c of
        #27: halt;
        #49: begin
                da:=true;
                break;
              end;
        #50: begin
                da:=false;
                break;
              end;
        end;
    end;
  until false;
end;

var
s: string;

begin

  writeln('Для выбора варианта ответа нужно нажать 1 или 2 соответственно.');
  writeln('Выход - esc.');
  writeln('');

  writeln('Дикое или домашнее?');
  if da then
  begin
    writeln('С рогами или без?');
    if da then
      s:='Лось'
    else
    begin
      writeln('Крупное или мелкое?');
      if da then
        s:='Медведь'
      else
        s:='Заяц';
    end;
  end
  else
  begin
    writeln('Крупное или мелкое?');
    if da then
      s:='Корова'
    else
      s:='Кошка';
  end;

  writeln(s);

  readln;

end.