Найдите десятичные эквиваленты по их прямым кодом, записанным в 8-разрядном формате со знаком: а)01001100 б)00010101

Разложим по степеням основания и получим 64+8+4=76 16+4+1=21

var

a,min: integer;

begin

  readln(a);

  if a=0 then

    begin

      writeln('error');

      exit;

    end

      else  

        begin

          min: =a;

          repeat  

            if min> a then

              min: =a;

            readln(a);

          until a=0;

          writeln('min: ',min);

        end;

end.

var

a,min: integer;

begin

  readln(a);

  if a=0 then

    begin

      writeln('error');

      exit;

    end

      else  

        begin

          min: =a;

          repeat  

            if min> a then

              min: =a;

            readln(a);

          until a=0;

          writeln('min: ',min);

        end;

end.