Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли…

dim Adim Bdim Cdim DA=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 nextprint «А меньше B , C , D" точной граматики не помню но вроде так на бейсикено все от языка программирования зависит=)