Bài 1 nha
program tong;
uses crt;
var S:string;
i,dem:integer;
begin
clrscr;
readln(S);
For i:=1 to length(S) do if S[i]='a' then inc(dem);
writeln(dem);
readln;
end.
Bài 2
program tong;
uses crt;
var S:string;
i,vt:integer;
begin
clrscr;
readln(S);
while pos('anh',S)>0 do
begin
insert('em',S,pos('anh',S));
delete(S,pos('anh',S),3);
end;
writeln(S);
readln;
end.