Declaración: procedure TextBackground(Color: Byte);
uses Crt;
begin
{ Verde con fondo negro }
TextColor(Green);
TextBackground(Black);
WriteLn('Hola!');
{ Rojo claro parpadeante }
{ sobre fondo gris }
TextColor(LightRed+Blink);
TextBackground(LightGray);
WriteLn('Hola!');
{ Amarillo sobre azul }
TextColor(14); { Yellow = 14 }
TextBackground(Blue);
WriteLn('Hola otra vez!');
NormVideo; { Colores por defecto }
WriteLn('Hemos terminado...');
end.