Написать программу, вычисляющую произведение целых чисел меньше 1000

dodim Otvety=InputBox ("Ваше число должно быть меньше 1000","Первое число» ,"<Число>") if y => 1000 thenmsgbox «Ваше число больше 1000. Введите заново."exit doelseend ifx=InputBox ("Ваше число должно быть меньше 1000","Второе число» ,"<Число>") if x => 1000 thenmsgbox «Ваше число больше 1000. Введите заново."exit doelseend ifOtvet=y*x msgbox (Otvet) exit doloop P.S. На платформе VBS