Решить по информатике. программирование в среде basic. найти наименьшее из трех чисел. какой алгоритм?

сls

input a

input b

input c

if a< b and a< c then print "наименьшее число"; a: end

if b< a and b< c then print "наименьшее число"; b: end

if c< a and c< b then print "наименьшее число"; c else print "наименьшего числа нет"

  dim a, b as integer

private sub command_click()

a=val(text1.text)

b=val(text2.text)

if a> b then label1 caption =a else label1 coption=b

end sub

  там по подобию этой

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5