Составить программы для вычисления значений функции при заданных значениях аргументов

DEFINT I-K
CLS
DIM f(1 TO 5, 1 TO 4)
 
i = 1
DO
   LOCATE 2 + i, 2
   PRINT "a="; .1 * i
   j = 1
   DO
      a = .1 * i
      y = .8 + .2 * j
      LOCATE 1, 10 * j + 1
      PRINT "y="; y
      FOR k = 1 TO 8
         f(i, j) = f(i, j) + (y - a) ^ (k / 3)
      NEXT k
      LOCATE 2 + i, 10 * j
      PRINT USING "##.####  "; f(i, j);
      j = j + 1
   LOOP UNTIL j > 4
   PRINT
   i = i + 1
LOOP UNTIL i > 5
END

DEFINT I-K
CLS
DIM f(1 TO 5, 1 TO 4)
 
FOR i = 1 TO 5
   LOCATE 2 + i, 2
   PRINT "a="; .1 * i
   FOR j = 1 TO 4
      a = .1 * i
      y = .8 + .2 * j
      LOCATE 1, 10 * j + 1
      PRINT "y="; y
      FOR k = 1 TO 8
         f(i, j) = f(i, j) + (y - a) ^ (k / 3)
      NEXT k
      LOCATE 2 + i, 10 * j
      PRINT USING "##.####  "; f(i, j);
   NEXT j
   PRINT
NEXT i
END