Требования для создания интерфейса программы​

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер:

см схему на стр 15, № 34                                                  

uses crt; var a,s: integer; begins: =0; writeln('введите числа'); while a< > 0 do beginreadln(a); if (a> 0) then s: =s+a; end; writeln('s=',s); end.