contoh program fortran pada "kesetimbangan statik tertentu"

diketahui soalnya seperti di bawah ini:

diketahui (asumsi):
F= 50 [N]
L= 4 [m]
p= 2 [m]
q= 2 [m]

lalu buat program fortrannya seperti di bawah ini:

lalu compile dan mulai running programnya di cmd, like this picture:

keep try :)