program counter_thingy (input, output);

uses CRT;

var num_start   :   integer;
    num_end     :   integer;
    ans1        :   integer;
    ans2        :   integer;
    ans3        :   integer;

Begin
    clrscr;
        Write('Enter start number:  ');
        readln(num_start);
    clrscr
        Write('Enter end number:  ');
        readln(num_end);

            While num_start < num_end DO
                clrscr;
                write('Calculating, Please wait');
                ans1 := num_start + 1;
                num_start := ans1;
                ans2 := num_start+1;
                ans3 := ans1+ans2;
            end;
                    clrscr;
                        Writeln('The sum of all digits within the range you entered is: ' ,ans3);
END;