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.