Uses crt; Var St:String; i:longint; Begin Clrscr; Write('Nhap sau St: '); Readln(St); For i:=1 to length(St) do If (St[i] in ['0'..'9']) and (St[i+1] in ['0'..'9']) then write(St[i]) Else If (St[i] in ['0'..'9']) then Begin Write(st[i]); Writeln; End; Readln; End.
uses crt; var s: string; i: integer; begin clrscr; write('Nhap: '); readln(s); for i:=1 to length(s) do if (s[i] in ['0'..'9']) and (s[i+1] in ['0'..'9']) then write(s[i]) else if s[i] in ['0'..'9'] then begin write(s[i]); writeln; end; readln end.
