Basic - programa divisibilidad en gwbasic

new
10 input " dime un numero " ; a$
20 input " dime un numero " ; b$
30 input " dime un numero " ; c$
40 input " dime un numero " ; d$
50 input " dime un numero " ; e$
60 let a$ = 100/2
70 let b$ = 50/2
80 let c$ = 35/2
90 let d$ = 13/2
100 let e$ = 1/1
110 goto a$,b$,c$,d$,e$,
120 data a$,b$,c$,d$,e$,
130 print a$ " 50 "
140 print b$ " 25 "
150 print c$ " 11 "
160 print d$ " 1 "
160 print e$ " 0 "
170 save