- Nhập một xâu A không quá 150 kí tự - Tạo xâu B gồm các kí tự là số trong xâu A - In các xâu ra màn hình

program oken;
uses crt;
var a,b: string[150];
    i: byte;
begin
        clrscr;
        write('nhap xau a: '); readln(a);
        for i:=1 to length(a) do
                if (a[i] in ['0'..'9']) then
                        b:=b+a[i];
        writeln('xau b: ',b);
        readln;
end.

uses crt;
var A,B:string[150];
    i: byte;
begin
   clrscr;
   write('Nhap xau A: '); readln(A);
   for i:=1 to length(A) do
   if (A[i] in ['0'..'9']) then B:=B+A[i];
   writeln('Xau B la: ',B);
   readln
end.