Расставьте единицы измерения 1 мбайт 1028кбайт 80 бит 5 байт​

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

буфер обмена,перетаскивание,сохранение в файл

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.