Определи основание системы счисления числа 172 (8)​

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

var n,cost: real;

begin

  writeln('введите, сколько квт/ч клиент израсходовал');

  readln(n);

  if n< =250 then begin cost: =7*n; writeln('плата равна: ',cost); end;

  if (n> 250) and (n< =300) then begin cost: =17*n; writeln('плата равна: ',cost); end;

  if n> 300 then begin cost: =20*n; writeln('плата равна: ',cost); end;

end.

      все просто

    +116=1110100;   -116=0001011 

program av;

var a,b,c,d,e: integer;

begin

writeln('введите числа');

readln(a,b,c) ;

d: =0 ;

if   a mod 2 = 0

then d: =d+1;

if   b mod 2 = 0

then d: =d+1;

if   c mod 2 = 0

then d: =d+1;

  e: =3-d

writeln(d,'количество четных') ;

  writeln(e,'количество не четных') ;

end.