Codigos visualfp

1)

close all
clear
for a=9 to 43
?a
next a

2)
close all
clear
for a= 2 to 48
if (a%2)=1 then
?a
endif
next a

3)
close all
clear
for a= 2 to 48
if (a%2)=0 then
?a
endif
nexta

4)
close all
clear
input "dame el numero de pulgadas" to pulg
x=pulg/36
? "el numero de yardas son:" + str(x,10,2)
input "dame el numero de pies" to pies
y= pies * 12
? "el numero depulgadas son:" + str (y)

5)
close all
clear
input "dame un numero" to x
if (x/14)=0 then
? "es divisible"
else
? "no es"
Endif

6)
close all
clear
input "dame un numero y te digo si sies multiplo de 6" to n
if (n%6)=0 then
?"si es multiplo"
else
?"no es"
Endif

7)
close all
clear
input "dame el numero" to x
if (x%2)=1 then
?"es impar"
else
?"es par"
Endif

8)
closeall
clear
input "determinar cuales numeros son negativos y positivos" to x
if (x<0)then
negativo=negativo+1
?"es negativo"
else
positivo=positivo+1
?"es positivo"
endif
next a
?"losnumeros positivos son:" +str(positivo)
?"los numeros negativos son:" +str(negativo)

9)
close all
clear
for a=1 to 25
input "dame 25 numeros" to x
if (x%2)=0 then
?"es par"
else
?"es impar"endif
next a

10)
close all
clear
cuadrado=0
cubo=0
for a= 1 to 25
if (a%2)=0 then
cuadrado= a^2
?"el cuadrado de" +str (a) + " es:" + str(cuadrado)
else
cubo= a^3
?"el cubo de" +str (a)+ " es:" + str(cubo)
endif
next a

11)
close all
clear
input "dame el kilo de manzanas" to kg
input "dame el precio por kilo de manzanas" to preci
x= (kg*preci)
?"el precio es:" + str(x,10,2)

12)
Close All
Clear
Input "Dame la primera calificacion:" To cali1
Input "Dame la segunda calificacion:" To cali2
Input "Dame la tercera calificacion:" To cali3
x=(cali1+cali2+cali3)/3
Ifcali1>cali2 Then
Mayor = cali1
Menor = cali2
Else
Mayor = cali2
Menor = cali1
Endif
If cali3>Mayor Then
Mayor= cali3
Endif
If cali3<Menor Then
Menor= cali3
Endif
?"Mayor = " +...