program Hello;
uses crt;
var s: string;
    k: char;
    i: integer;
    a: array[32..126] of integer;
begin
    write('Nhap xau: '); readln(s);
    write('a/ Nhap ky tu: '); readln(k);
    for i:= 1 to length(s) do 
        a[ord(s[i])]:= a[ord(s[i])] + 1;
    
    writeln('a/ ', k, ' xuat hien: ', a[ord(k)]);
    
    writeln('b/ ');
    for i:= 36 to 126 do 
        if a[i] > 0 then writeln(chr(i), ' xuat hien: ', a[i], ' lan');
readln;
end.

uses crt;

var s : string;

i, d, d1, d2, d3 : byte; kt, j, l, m : char;

begin

clrscr; d := 0; d3 := 0;

write('Nhap xau : '); readln(s);

write('Nhap ki tu : '); readln(kt);

for i := 1 to length(s) do

if s[i] = kt then d := d + 1;

write('Ki tu ', kt ,' xuat hien ', d ,' lan');

for j in['a' .. 'z'] do begin d1 := 0;

for i := 1 to length(s) do begin

if s[i] = j then begin d1 := d1 + 1; d3 := d3 + 1; end;

end;

if d1 <> 0 then writeln('Ki tu ', j , ' xuat hien ', d1 ,' lan');

end;

for l in['A' .. 'Z'] do begin d1 := 0;

for i := 1 to length(s) do begin

if s[i] = l then begin d1 := d1 + 1; d3 := d3 + 1; end;

end;

if d1 <> 0 then writeln('Ki tu ', l , ' xuat hien ', d1 ,' lan');end;

for m in['0' .. '9'] do begin d1 := 0;

for i := 1 to length(s) do begin

if s[i] = m then begin d1 := d1 + 1; d3 := d3 + 1; end;

end; if d1 <> 0 then writeln('Ki tu ', m , ' xuat hien ', d1 ,' lan');

end; d2 := 0;

for i := 1 to length(s) do if s[i] = ' ' then d2 := d2 + 1;

if length(s) <> d3 + d2 then

writeln('Cac ki tu dac biet xuat hien ', length(s) - d3 - d2 ,' lan');

readln

end.