Имеется четыре 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"

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

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