FORMULA PARA LA FUREZA

STORE 0 TO M,A,F
resp="s"
DO while (resp="s")
clear
@5,5 say "introduce la masa" get M
read
@6,5 say "introduce la aceleracion" 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"