Uses Crt;

Var S : String;

      i,n,dem : integer;

Begin

 Clrscr;

 dem:=0;

 Write('Nhap xau : '); Readln(S);
 n:=length(S);

 For i:=1 to n do If S[i] in['a'..'z'] do

  Begin
   delete(S,i,1);
   dem:=dem+1;

   End;
 Writeln('Da xoa ',dem,' ki tu la chu cai trong xau');

 Writeln('Xau sau khi xoa la : ',S);

 Readln

End.

uses crt;
 var s,a : string;
  d,i : byte ;
   begin
    clrscr;
    write('Nhap xau: ');
    readln(s);
 for i := 1 to length(s) do
 begin
  if (ord(s[i])>=48) and (ord(s[i])<=57) then
      begin
      a := a + s[i];
      d := d + 1 ;
      end;
 end ;
  writeln('Xau sau khi xoa chu, dau cach ... la : ',a);
  writeln('So ky tu da xoa: ',d);
      end .