Trong bảng chữ cái tiếng anh có 26 chữ cái mới đúng nhé bạn
uses crt;
var i:char;
dem:integer;
begin
clrscr;
writeln('bang chu cai tu A toi Z la: ');
dem:=0;
for i:='A' to 'Z' do
begin
write(i:4);
dem:=dem+1;
if dem mod 6=0 then writeln;
end;
readln;
end.