Uses CRT;
Var
n: integer;
begin
clrscr;
repeat
write('N: ');
readln(n);
if n > 7 then
writeln('Белый')
else if n < 0 then
writeln('Черный')
else
case n of
1:
writeln('Красный');
2:
writeln('Оранжевый');
3:
writeln('Желтый');
4:
writeln('Зеленый');
5:
writeln('Голубой');
6:
writeln('Синий');
7:
writeln('Фиолетовый');
end;
until n = 0;
readkey
end.
Следующий вариант
readln(n);
case n of
1:
writeln('Красный');
2:
writeln('Оранжевый');
3:
writeln('Жёлтый');
4:
writeln('Зелёный');
5:
writeln('Голубой');
6:
writeln('Синий');
7:
writeln('Фиолетовый')
else
if n > 7 then
writeln('белый')
else if n < 0 then
writeln('Чёрный')
end;