Имеется четыре a,b,c,d произвольных числа. эвм должна ответить на вопрос: правда ли первое число самое маленькое. ответ должен выходить на экран в виде текста : правда , неправда

dim A

dim B

dim C

dim D

A = val(text1.text)

B = val(text2.text)

C = val(text3.text)

D =val(text4.text)

if А > B then print "А больше  B"

else go next

    if   А > C then print "А больше  C"

else go next

       if   А > D then print "А больше  B"

else go next

print "А меньше B , C , D"

точной граматики не помню но вроде так на бейсике

но всё от языка программирования зависит =)