PRINT
PRINT "人工衛星に働く地球の引力  F = G * M * m / r^2"
PRINT
INPUT PROMPT "高度は？ （ｋｍ） ":h
INPUT PROMPT "質量は？ （ｋｇ） ":mass
PRINT
LET G=6.6743*10^(-11)
LET M=5.98712*10^(24)
LET F=mass*G*M/((h+6378)*10^3)^2
PRINT "Ｆ＝";F;"Ｎ"
PRINT
END