Cho hai số nguyên dương A và B có tối đa 100 chữ số. Yêu cầu: Hãy tính tổng của hai số Dữ liệu vào: Tệp văn bản TINHTONG.INP ghi hai số nguyên A và B trên hai dòng. Kết quả: Ghi ra tệp văn bản TINHTONG.OUT một số nguyên là tổng của hai số A và B. Ví dụ: TINHTONG.INP TINHTONG.OUT -101 200 301 TINHTONG.INP TINHTONG.OUT 234 357 123

Uses crt;
Var 
    a,b: string;
    i,s,v,a1,b1,a2,b2: integer;
Begin
    repeat
        clrscr;
        readln(a);
        readln(b);
        s:=0; v:=0;
        if a[1]='-' then 
            begin
            a2:=-1;
            delete(a,1,1);
            end
            else a2:=1;
        if b[1]='-' then 
            begin
            b2:=-1;
            delete(b,1,1);
            end
            else b2:=1;
        if (length(a)<=100)and(length(b)<=100) then
            begin
            for i:=1 to length(a) do if a[i] in ['0'..'9'] then s:=s+1;
            if s=length(a) then 
                begin
                s:=0;
                for i:=1 to length(b) do if b[i] in ['0'..'9'] then s:=s+1;
                if s=length(b) then v:=1;
                end;
            end;
    until(v=1);
    val(a,a1,i);
    val(b,b1,i);
    writeln(a2*a1+b2*b1);
    readln;
End.