BAI1.PAS

Var
    S, ST : String;

Function handling(S:String):String;
Var
    Result : String;
    i : Longint;
Begin
    Result := '';
    For i := 1 to Length(S) do
        If S[i] in ['0'..'9'] then
            Result := Result + S[i];
    Exit(Result);
End;

Begin
    Write('Input S = '); Readln(S);

    ST := handling(S);

    Write('Result = ', ST);
End.