Сколько натуральных чисел расположено в интервале

157^8< x < 84^16​

Переведем границы интервала в десятичную с.с.:

157_8=1\cdot8^2+5\cdot8^1+7\cdot8^0=64+40+7=111_{10}\\84_{16}=8\cdot16^1+4\cdot16^0=132_{10}

В интервале 111 < x < 132 расположено 20 натуральных чисел (132-111-1)

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите