Formula para calcular F=m*a

store 0 to m,a,f
resp="S"
do while (resp="S")
clear
@5,5 say "Introducir la masa" get m
read
@6,5 say"Introduce la acelaracion"get a
read
F=m*a
@8,5 say "Fuerza="
@8,12 say f
@8,30 say "Newtons"
wait "Desea otro calculo s/n?"to resp
resp=upper (resp)
enddo
wait window "Fin del programa"