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.