program szinek;
uses crt;
var i:byte;
    s:string;

begin
     clrscr;
     for i:=0 to 15 do
     begin
      textcolor(i);
      textbackground(0);
      writeln;
      case i of
      0:begin
        textbackground(15);
        s:='fekete';
        end;
      1:s:='sotetkek';
      2:s:='zold';
      3:s:='halvanykek';
      4:s:='voros';
      5:s:='sotetlila';
      6:s:='barna';
      7:s:='vilagosszurke';
      8:s:='sotetszurke';
      9:s:='kek';
     10:s:='vilagoszold';
     11:s:='vilagoskek';
     12:s:='piros';
     13:s:='vilagoslila';
     14:s:='sarga';
     15:s:='feher';
   end;
   write(s);
   end;
   textcolor(7);
   writeln;
   readln
end.