uses crt;
var s: string;
ch ,x:char;
i:byte;
d:array['a'..'z'] of byte;
begin
        clrscr;
        write('nhap:');readln(s);
        for ch:='a' to 'z'   do d[ch]:=0;
        for i:=1 to length(s) do
                begin
                        x:=upcase(s[i]);
                        if(x>='a') and (x<='z') then d[x]:=d[x]+1;
                end;
        for ch:='a' to 'z'   do
                if  d[ch]>0 then
                writeln(ch,'=',d[ch]);
        readln;
end.

uses crt;

var s : string; c : char; d, i : byte;

begin

clrscr;

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

write('Nhap 1 ki tu : '); readln(c);

d := 0;

for i := 1 to length(s) do

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

write('Ki tu ', c ,' xua hien trong xau  ', d ,' lan');

readln

end.