var s:char;
begin
  writeln('Учитель.Бухгалтер.Программист.Врач.Строитель.');
  readln(s);
    case s of
      'У': writeln('Учитель - описание');
      'Б': writeln('Бухгалтер - описание');
      'П': writeln('Программист - описание');
      'В': writeln('Врач - описание');
      'С': writeln('Строитель - описание');
       else writeln('Нет в списке');
    end;
  readln
end.