с 4 рисунком :( это информатика​

помагаю смотри конь тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык тыгадык

1) o+1=1;   2) 1 * 2= 2; 3) 2 + 1 = 3; 4) 3 * 2 =6; 5) 6 * 2 = 12; 5) 12 * 2 = 24; 7) 24 + 1 = 25; 8) 25 * 2 = 50.

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.