nhâp vào từ bàn phím hai chuỗi s1,s2 không quá 255 kí tự gồm kí tự số có lẫn loại ký tự khác.Xóa hết các kí tự không phải ký tự số trong mưỗi chuỗi,loại bỏ ký tự '0' ở đầu mỗi chuỗi nếu có để thu được hai con số.9 nếu chuỗi rỗng trả về con số 0)

program Hello;
var s1,s2:string;
function xoa(s:string):string;
var st:string;
    i:longint;
begin
    st:='';
    for i:= 1 to length(s) do
        if s[i] in ['0'..'9'] then
            st:= st + s[i];
    while (st[1] = '0') and (length(st) > 1) do delete(st,1,1);
    if st <> '' then
        xoa:= st
    else
        xoa:= '0';
end;
begin
    readln(s1);
    readln(s2);
    writeln(xoa(s1));
    writeln(xoa(s2));
end.

uses crt;
var s1,s2:string;
    i:byte;
begin
    clrscr;
    readln(s1);
    readln(s2);
    i:=1;
    while i<=length(s1) do
        begin
            if s1[i] in ['0'..'9'] then inc(i)
                else delete(s1,i,1);
        end;
    i:=1;
    while i<=length(s2) do
        begin
            if s2[i] in ['0'..'9'] then inc(i)
                else delete(s2,i,1);
        end;
    while (s1[1]='0') and (length(s1)<>0) do delete(s1,1,1);
    while (s2[1]='0') and (length(s2)<>0) do delete(s2,1,1);
    if length(s1)>0 then writeln(s1)
        else writeln('0');
    if length(s2)>0 then writeln(s2)
        else writeln('0');
readln;
end.