nhập 1 xâu kí tự (gồm chữ và số), sau đó in ra màn hình các chữ số có trong xâu và vị trí của số trong câu

uses crt;

var S : string; i : byte;

begin

clrscr;

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

write('Cac chu so co trong xau : ');

for i := 1 to length(S) do

if S[i] in ['0' .. '9'] then write(S[i],'  ');

writeln; write('Vi tri chu so : ');

for i := 1 to length(S) do

if S[i] in ['0' .. '9'] then write(i,'  ');

readln

end.