Đã tìm ra cách làm môn Tin học bài 2

Sau một tối suy nghĩ, Sentry đã nghĩ ra cách làm bài 2 bài thực hành 5...

Program baitap2;
uses crt;
var a, b: string;
i, j: byte;
c: char;

Begin
write('nhap tu can tra: ');
readln(a);
b:='';
for i:=1 to length(a) do
b:=b+upcase(a[i]);
for c='A' to 'Z' do
begin
j:=0;
for i:=1 to length (b) do
if c=b[i] then j:=j+1
if d>o then writeln('chu cai ', c,' xuat hien ', j ,' lan')
end;
readln
end.