uses crt;
var color:string;
a:integer;
begin;
clrscr;
writeln('Введите цвет (маленькие буквы)');
readln(color);
a:=1;
IF color = 'красный' THEN
 begin
 writeln('1');a:=0;
end;
IF color = 'зеленый' THEN
 begin
 writeln('2');a:=0;
 end;
IF color = 'желтый' THEN
 begin
 writeln('3');a:=0;
 end;
IF color = 'черный' THEN
 begin
 writeln('4');a:=0;
 end;
IF color = 'белый' THEN
 begin
 writeln('5'); a:=0;
 end;
IF color = 'синий' THEN
 begin
 writeln('6'); a:=0;
 end;
IF color = 'коричневый' THEN
 begin
 writeln('7');a:=0;
 end;
if a=1 then writeln('такой краски нет');
end.