Menentukan Warna Text Pada Alprog Pascal

PUTERADEWA

---

uses crt;
var i:integer;
begin

clrscr;
writeln('Program untuk melihat seluruh warna ');
for i:=1 to 20 do begin TEXTcolor(i);
writeln('tulisan ini berwarna dengan nomor ',i);
end;
readln;
end.

Thank's by : Renalten Arsyad
Fikom