Viết chương trình nhập vào 1 xâu,đưa ra màn hình xâu chứa các chữ số trong xâu nhập vào

program chuso;

uses crt;

var s,st:string;

      i:byte;

begin

       clrscr;

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

       st:=”;

       for i:=1 to length(s) do

              if s[i] in [‘0’..’9′] then st:=st+s[i];

       if length(st)=0 then write(‘Khong co so’)

             else write(st);

       readln;

end.