Две задачи на Basic

CLS
RANDOMIZE TIMER
n = 10
DIM x(1 TO n)
DIM y(1 TO n)
 
FOR i = 1 TO n
   x(i) = INT(40 * RND)
   PRINT x(i);
NEXT
PRINT : PRINT
 
y(1) = (x(1) + x(2)) / 2
y(n) = (x(n - 1) + x(n)) / 2
 
FOR i = 2 TO n - 1
   y(i) = (x(i - 1) + x(i) + x(i + 1)) / 3
NEXT
 
FOR i = 1 TO n
   PRINT USING "####.##"; y(i);
NEXT
END

CLS
DATA 45, 40, 25, 15,  7
DATA 41, 35, 32, 21, 12, 10, 7
DATA 50, 49, 38, 26, 17, 11, 7, 4, 1
 
na = 5
nb = 7
nc = 9
 
DIM A(1 TO nc) AS INTEGER
DIM B(1 TO nc) AS INTEGER
DIM C(1 TO nc) AS INTEGER
DIM D(1 TO na + nb + nc) AS INTEGER
 
FOR i = 1 TO na
   READ A(i)
   PRINT A(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO nb
   READ B(i)
   PRINT B(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO nc
   READ C(i)
   PRINT C(i);
NEXT
PRINT : PRINT
 
i = 1: j = 1: k = 1: l = 1
 
DO
   IF A(i) >= B(j) AND A(i) >= C(k) THEN
      D(l) = A(i)
      IF i < nc THEN i = i + 1
   ELSEIF B(j) >= A(i) AND B(j) >= C(k) THEN
      D(l) = B(j)
      IF j < nc THEN j = j + 1
   ELSEIF C(k) >= A(i) AND C(k) >= B(j) THEN
      D(l) = C(k)
      IF k < nc THEN k = k + 1
   END IF
   l = l + 1
LOOP UNTIL l > na + nb + nc
 
FOR i = 1 TO na + nb + nc
   PRINT D(i);
NEXT
END