uses crt; var s:string; i:byte; begin clrscr; write('Nhap xau: '); readln(s); while i<=length(s) do begin if (s[i] in ['A'..'z']) then begin delete(s,i,1); dec(i); end; inc(i); end; write('Xau ket qua la: ',s); readln end.
var s:string; i:byte; begin clrscr; write(‘Nhap xau: ‘); readln(s); while i<=length(s) do begin if (s[i] in [‘A’..’z’]) then begin delete(s,i,1); dec(i); end; inc(i); end; write(‘Xau ket qua la: ‘,s); readln end.
