Да уж, я так сразу додуматься даже не могу буковки с буковками сложить
На ABC пишу возможный вариант:
Код:
var
n,m:integer;
begin
writeln('vvedite nomer bukvi: 1-P, 2-S, 3-L, 4-F, 5-K');
read(n);
case n of
1:writeln('Peshka');
2:writeln('Slon');
3:writeln('Ladia');
4:writeln('Fers');
5:writeln('Kon');
end;
writeln('vvedite zvet: 6-W, 7-B');
read(m);
case m of
6:writeln('White');
7:writeln('Black');
end;
end.