PROGRAMA QUE CALCULA EL DESCUENTO DEL 7% SI EL PAGO ES MAYOR DE 5000 Y EL 4% SI EL PAGO ES MENOR DE 5000

***PROGRAMA  QUE CALCULA EL  DESCUENTO DEL 7%  SI EL PAGO ES MAYOR DE 5000 Y EL 4% SI EL PAGO ES MENOR DE 5000
***VISUAL FOXPRO 9.0

CLEAR
A=0
@2,10 SAY "INGRESE COMPRA" GET A
READ
B= A*0.07
C= A*0.04
   IF A>=5000
     @6,10 SAY "SU DESCUENTO ES DE 7%, EQUIVALE A:" +STR(B)
   ENDIF
   IF A<5000
     @6,10 SAY "SU DESCUENTO ES DE 4% EQUIVALE A:" +STR(C)
   ENDIF