program inchucai;
uses crt;
var i:char;
begin
clrscr;
textcolor(red); {Tô đỏ các từ in ở phía sau câu lệnh}
writeln('Cac ki tu trong bang chu cai tien anh la: ');
textcolor(yellow); {Tô vàng các từ in ở phía sau câu lệnh}
for i:='A' to 'Z' do write(i,' ');
readln;
end.
Hoàn chỉnh luôn đó nha bạn.
Kết quả: xem hình.