С клавиатуры вводится число (C=1 7),в ответ выводится название одного из цветов радуги.
(1-красный,2-оранжевый, …)
Производить эту операцию несколько раз до тех пор, пока пользователь не введет ”0”.При С>7-выдавать «белый» ,при C<0 – «черный»- Pascal(Паскаль)

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;