Помогите написать программу и подпрограмму в Qbasic!!!

Примерно так

10 a=5:b=3:c=2
20 x=a+2*b-c:gosub 60
30 d=y*2:x=c:gosub 60
40 d=d*y/a:x=b:gosub 60
50 d=d*y:print d:stop
60 y=1
70 for i=x to 2 step -1
80 y=y*i
90 next i
100 return