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.