var s: string;

      i: byte;

Begin

    i:=1;

    Write('nhap xau: '); readln(s);

    While i<=length(s) do

        If s[i] in ['0'..'9'] then delete(s, i, 1)

        Else inc(i);

    Write('xau da xu ly: ', s);

    Readln

End.

program xau;

uses crt;

var s: string;

function POSNUM(s: string): byte;

var OK:boolean; 

      i: byte;

begin

         OK:=False;

         i:=1;

         while (i<=length(s)) and (not OK) do

         if s[i] in ['0'..'9'] then OK:=True

         else i:=i+1;

         if OK then POSNUM:=i else POSNUM:=0;

end;

Begin

         clrscr;

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

         while POSNUM(s)<>0 do delete(s,POSNUM(s),1);

         write('Xau sau khi xu li: 's);

         readln

End.