2 câu trả lời
program oken;
uses crt;
var i: byte;
begin
clrscr;
write('Day ki tu: ');
for i:=65 to 90 do
write(char(i),' ');
readln;
end.
program ct;
uses crt;
var A:array['A'..'Z'] of string;
i:integer;
begin clrscr;
writeln('Cac ki tu tu A den Z la: ');
for i:='A' to 'Z' do
write(A[i]);
readln;
end.
Học tốt!