uses crt;
var a, b: AnsiString;

function sub(a, b: AnsiString): AnsiString;
var ans: AnsiString;
    s, borrow, i: Longint;
begin
    borrow:=0; ans:='';

    while length(a) < length(b) do 
        a:='0' + a;
    while length(b) < length(a) do
        b:='0' + b;

    for i:=length(a) downto 1 do 
        begin
            s:=ord(a[i]) - ord(b[i]) - borrow;
            if s < 0 then
                begin
                    inc(s, 10);
                    borrow:=1;
                end else
                    borrow:=0;
            ans:=chr(s + 48) + ans;
        end;

    while(length(ans) > 1) and (ans[1] = '0') do
        delete(ans, 1, 1);
    exit(ans);
end;

begin
clrscr;
    readln(a);
    readln(b);
    writeln(sub(a,b));
readln;
end.

uses crt;
var s1,s2:string;
function tru(a,b:string):string;
var i,nho,t:longint;  
begin
   tru:='';
   while length(a)<length(b) do a:='0'+a;
   while length(b)<length(a) do b:='0'+b;
   nho:=0;
   for i:=length(a) downto 1 do
      begin
         t:=(ord(a[i])-48)-(ord(b[i])-48)-nho;
         nho:=0; 
         if t<0 then 
            begin 
               t:=(ord(a[i])-48)+10-(ord(b[i])-48)-nho;
               nho:=1;
            end;
         tru:=chr(t+48)+tru;
      end;
   while tru[1]='0' do delete(tru,1,1);
end;
begin 
clrscr;
   readln(s1);
   readln(s2);
   writeln(tru(s1,s2));
readln 
end.