VAR
 Code:String[2];
 Name:String;
 b:boolean;

Procedure No_figure;
begin
 WriteLn('Такой фигуры нет!');
 b:=false;
end;

BEGIN
 REPEAT
  Write('Введите название и цвет фигуры ("11" для выхода из программы): ');
  ReadLn(Code);
  b:=true;
  If Code<>'11' then
   begin
    Case Code[1] of
     'п': Case Code[2] of
           'б': Name:='белая пешка';
           'ч': Name:='черная пешка';
           else No_figure;
          end;
     'с': Case Code[2] of
           'б': Name:='белый слон';
           'ч': Name:='черный слон';
           else No_figure;
          end;
     'л': Case Code[2] of
           'б': Name:='белая ладья';
           'ч': Name:='черная ладья';
           else No_figure;
          end;
     'ф': Case Code[2] of
           'б': Name:='белый ферзь';
           'ч': Name:='черный ферзь';
          end;
     'к': Case Code[2] of
           'б': Name:='белый конь';
           'ч': Name:='черный конь';
           else No_figure;
          end;
     'К': Case Code[2] of
           'б': Name:='белый король';
           'ч': Name:='черный король';
           else No_figure;
          end;
      else No_figure;
    end;
    If b then WriteLn('Это '+Name);
   end;
 UNTIL Code='11';
END.