program support;

var

  s: string;

begin

  Writeln('Have you any problem? (yes/no)');

  Readln(s);

  while s = 'yes' do begin

    Writeln('Have you a problem with electronic devices? (yes/no)');

    Readln(s);

    if s = 'yes' then begin

      Writeln('Have you a problem with TV? (yes/no)');

      Readln(s);

      if s = 'yes' then begin

        Writeln('You must to go to TV master');

      end else begin

        Writeln('Have you a problem with computer? (yes/no)');

        Readln(s);

        if s = 'yes' then begin

          Writeln('You must go to sysadmin');

        end else begin

          Writeln('I am sorry, I cannot help you.');

        end;

      end;

    end else begin

      Writeln('Have you a problem with teapot? (yes/no)');

      Readln(s);

      if s = 'yes' then begin

        Writeln('Was you teapot broken? (yes/no)');

        Readln(s);

        if s = 'yes' then begin

          Writeln('You must buy our super glue');

        end else begin

          Writeln('I am sorry, I cannot help you.');

        end;

      end else begin

        Writeln('I am sorry, I cannot help you.');

      end;

    end;

    Writeln('Have you other problems? (yes/no)');

    Readln(s);

  end;

  Writeln('Good bye');

  readln(s);

end.