Решить по информатике. программирование в среде 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

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