programa para evaluar la expresion: vf=vo+at

store 0 to a,vi,vf

fresp="s"do while (resp="s")

clear

@5,5 say "introduce la velocidad inicial" get vi

@6,5 say "introduce la aceleracion"

get areadf=vi*a

@8,5 say "fuerza"

@8,12 say vf

@8,30 say m/seg
"wait "