Nhập xâu s1, tạo s2 gồm tấc cả chữ số có trong s1 (vị trí xuất hiện giữ nguyên)

PROGRAM CT75;
USES crt;
VAR s,n: STRING;
i: BYTE;
BEGIN
clrscr;
Write('Nhap xau: '); Readln(s);
n:='';
FOR i:=1 TO Length(s) DO
IF ('0' <= s[i]) AND (s[i] <= '9') THEN n:=N+s[i];
Write('Xau s2: ',n);
Readln
END.

Download: http://www.mediafire.com/?su73aym95fjoj5o