DISTANCE PASCAL

var     s1,s2:string;
        i:longint;

procedure nhap;
begin
        readln(s1);
        readln(s2);
end;

function minn(x,y,z:longint):longint;
var     m:longint;
begin
    m:=x;
    if y<m then m:=y;
    if z<m then m:=z;
    exit(m);
end;

function kc(a,b:char):longint;
var x,y,c1,c2,c3,kq:longint;
begin
    x:=ord(a)-48;
    y:=ord(b)-48;
    c1:=abs(x-y);
    c2:=x+10-y;
    c3:=y+10-x;
    kq:=minn(c1,c2,c3);
    exit(kq);
end;

procedure giai;
var     i,s:longint;
begin
    s:=0;
    for i:=1 to length(s1) do
        s:=s+kc(s1[i],s2[i]);
    writeln(s);
end;

begin
     //   assign(input,'distance.inp');reset(input);
      //  assign(output,'distance.out');rewrite(output);
        nhap;
        giai;
end.