Из величин, определяемых выражениями при заданном a=sin х, b=cos x, c=ln|x| определить и вывести на экран дисплея минимальное значение. нужна блок схема и текст программы в visual basic

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.

1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.

я пробовала у меня вышло 15 но возможны и другие варианты

ну в метро, или если ты турист то картой, не?