Имеется четыре 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"   точной граматики не помню но вроде так на бейсике но всё от языка программирования зависит =)