Составить программы для вычисления значений выражений на GW BASIC

'заявление 2 процедур
SUB f(x,y)
y=-16*x^2+134
END SUB
 
SUB ff(x,y)
y=2*(4*x^2-5)*(x+16)
END SUB
 
'a),b).    не понимаю в чем отличие.
INPUT "x=",x
CALL f(x,y)
? y
CALL ff(x,y)
? y
END
 
'c).
FOR i=1 TO 11
READ x
CALL f(x,y)
? "1).    x="x, "y="y
CALL ff(x,y)
? "2).    x="x, "y="y
NEXT i
END
DATA 14.1, 15.2, -0.3, -7, 0
DATA 11, -12, 13, -14, 15, -16

CALL f(x,y)

CALL f(1,t)

CLS
INPUT "Меня зовут ", NAME$
INPUT "Я учусь в группе ", group$
INPUT "Мой любимый предмет ", subject$
INPUT "В понедельник у нас по расписанию ", timetable$
INPUT "Моя будущая специальность ", fut$  'не помню, как специальность =)

INPUT "length of the arrey", l
DIM a(1 TO l)
PRINT "input data, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
FOR i=1 TO l
sum=sum+ a(i)
NEXT i
PRINT sum
END

DATA 5, 164, -7, -1, 25, 16.3, 9
DATA 79, -5.3, 8.2, 13,21, 69, -8, 17
FOR j=1 TO 2
sum=0
FOR i=1 TO 7
READ x
sum=sum+x
NEXT i
PRINT "sum of arrey #"+STR$(j)+"="sum
NEXT j

INPUT "length of the arrey#1", l
DIM a(1 TO l)
DIM b(1 TO l)
DIM c(1 TO l)
PRINT "input data of arrey#1, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
PRINT "input data of arrey#2, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
FOR i=1 TO l
c(i)=a(i)+b(i)
PRINT c(i)
NEXT i

INPUT "length of the arrey", l
DIM a(1 TO l)
PRINT "input data, please"
FOR i=1 TO l
PRINT "#"+STR$(i)+"=";
INPUT "", a(i)
NEXT i
FOR i=1 TO l
IF a(i)>0 THEN pol=pol+1
IF a(i)<0 THEN neg=neg+1
NEXT i
PRINT "positive="pol
PRINT "negative="neg

FOR j=1 TO 2
FOR i=1 TO 7
READ a(i)
NEXT i
lbl:
d=0
FOR i=1 TO 6
IF a(i)>a(i+1) THEN SWAP a(i),a(i+1): d=d+1
NEXT i
IF d<>0 THEN lbl
FOR i=1 TO 7
PRINT a(i)
NEXT i
NEXT j
END
DATA 1,21,41,61,81,101,121,141
DATA 10,30,50,70,90,110,130,150

FOR j=1 TO 2
FOR i=1 TO 7
READ a(i)
NEXT i
lbl:
d=0
FOR i=1 TO 6
IF a(i)>a(i+1) THEN SWAP a(i),a(i+1): d=d+1
NEXT i
IF d<>0 THEN lbl
FOR i=1 TO 7
PRINT a(i)
NEXT i
NEXT j
END
DATA 1,21,41,61,81,101,121,141
DATA 10,30,50,70,90,110,130,150

IF d<>0 THEN GOTO lbl

CLS
FOR j=1 TO 2
FOR i=1 TO 8
READ a(i)
NEXT i
lbl:
d=0
FOR i=1 TO 7
IF a(i)>a(i+1) THEN SWAP a(i),a(i+1): d=d+1
NEXT i
IF d<>0 THEN GOTO lbl
FOR i=1 TO 8
PRINT a(i)
NEXT i
NEXT j
END
DATA 1,21,41,61,101,121,141
DATA 10,30,50,70,90,110,130,150

DATA 5, 164, -7, -1, 25, 16.3, 9
DATA 79, -5.3, 8.2, 13,21, 69, -8, 17
FOR j=1 TO 2
sum=0
FOR i=1 TO 7
READ x
sum=sum+x
NEXT i
PRINT "sum of arrey #"+STR$(j)+"="sum
NEXT j