uses crt;
 var f:text;
 s,s1,s2,s3,s4: string;
x,x1,x2,x3,x4: real;
 osibka, komakoht, i, plussikoht: integer;
 begin
   assign(f,'arv.txt');
       reset(f);
         while not EOF(f) do
           begin
            readln(f,s);

            i:=1; while s[i]<>'+' do i:=i+1;
            plussikoht:=i;
            s1 := Copy(S, 1, plussikoht-2);
            delete(s, 1, plussikoht+1);
            val(s1,x1,osibka);
              if osibka<>0 then writeln('try again!');

            i:=1; while s[i]<>'+' do i:=i+1;
            plussikoht:=i;
            s2 := Copy(S, 1, plussikoht-2);
            delete(s, 1, plussikoht+1);
            val(s2,x2,osibka);

            i:=1; while s[i]<>'+' do i:=i+1;
            plussikoht:=i;
            s3 := Copy(S, 1, plussikoht-2);
            delete(s, 1, plussikoht+1);
            val(s3,x3,osibka);

            i:=1; while s[i]<>'+' do i:=i+1;
            plussikoht:=i;
            s4 := Copy(S, 1, plussikoht-1);
            delete(s, 1, plussikoht+1);
            val(s4,x4,osibka);

             writeln('           ');

             komakoht:=-1;
             i:=1;
               while (s1[i]<>'.') and (s1[i]<>' ') do i:=i+1;
             komakoht:=i;
             writeln('    ---------------');
               for i:=1 to 12-komakoht do write(' ');
             writeln(s1);

              komakoht:=-1;
              i:=1;
               while (s2[i]<>'.') and (s2[i]<>' ') do i:=i+1;
             komakoht:=i;
               for i:=1 to 12-komakoht do write(' ');
             writeln(s2);

              komakoht:=-1;
              i:=1;
               while (s3[i]<>'.') and (s3[i]<>' ') do i:=i+1;
             komakoht:=i;
               for i:=1 to 12-komakoht do write(' ');
             writeln(s3);

              komakoht:=-1;
              i:=1;
               while (s4[i]<>'.') and (s4[i]<>' ') do i:=i+1;
             komakoht:=i;
               for i:=1 to 12-komakoht do write(' ');
             writeln(s4);

             writeln('    ---------------');

             x:=x1+x2+x3+x4;
             str(x:8:4,s);
               komakoht:=-1;
              i:=1;
               while (s[i]<>'.') and (s[i]<>' ') do i:=i+1;
             komakoht:=i;
               for i:=1 to 12-komakoht do write(' ');
             writeln(s); {    x1+x2+x3+x4); }

           end;
        close(f);
        readkey;
        clrscr;
 end.