uses ColWrite,Crt;

begin
  ClrScr;
  CWrite('dfgdfg%%15,1#weiá auf blau%%14,3#gelb auf cyan');
end.