pascal program mewarnai belakang tulisan

Program Warna;

uses crt;

begin
Writeln ('Pilihan Warna');
textbackground(green);
Writeln ('Warna yang di pilih Hijau');
textbackground(red);
Writeln ('Warna yang di pilih Merah');
textbackground(cyan);
Writeln ('Warna yang di pilih Cyan');
textbackground(blue);
Writeln ('Warna yang di pilih Biru');
textbackground(yellow);
Writeln ('Warna yang di pilih Kuning');
 readln;
end.