uses crt;
var S : string; d, i : integer; f : text;
begin
clrscr;
write('Nhap xau S : '); readln(S);
assign(f, 'XAU.OUT'); rewrite(f);
i := 1; d := 0; while i < length(S) do
if (S[i] = ' ') and (S[i + 1] = ' ') then begin delete(S, i, 1);
i := i; end else i := i + 1;
for i := 1 to length(S) do
if (S[i] = 'a') or (S[i] = 'A') then d := d + 1;
writeln(f, 'Do dai xau = ', length(S));
writeln(f, 'Xau co ', d ,' ki tu a');
writeln(f, 'Xau sau khi xoa : ', S);
close(f);
readln
end.