PROGRAMA QUE CALCULA LA EDAD

***PROGRAMA QUE CALCULA LA EDAD
***VISUAL FOXPRO

clear
@1,4 say "PROGRAMA QUE CALCULA LA EDAD"
nombre=space(30)
edad=0
@8,10 say "ingrese su nombre" get nombre
read
@10,10 say "ingrese su edad" get edad
read

if  edad<18
   @15,10 say "USTED ES MENOR DE EDAD"
ELSE
    @15,10 say "USTED ES MAYOR DE EDAD"
ENDIF