помогите получить автомат:)

DIM A(6), K(6)
  ' Тут вписать значения, которые нужны
A(1) = 1
A(2) = 2
A(3) = 3
A(4) = 4
A(5) = 5
A(6) = 6
   ' Цикл обсчёта
   FOR i = 1 to 6
        S = 0
        FOR L = 1 TO 6
          S = S + A(i) ^ 2
        NEXT
      K(i) = SQR(ABS(A(i)) / S
   NEXT
   ' Исходные и результат
   CLS
   FOR i = 1 TO 6
     PRINT A(i);
   NEXT: PRINT
   FOR i = 1 TO 6
     PRINT K(i);
   NEXT

DIM Y(10)
Y(1) = 5
Y(2) = -1
Y(3) = -8   ' Минимальный эл-т [индекс 3]
Y(4) = 6
Y(5) = 15
Y(6) = -4
Y(7) = 10
Y(8) = -2
Y(9) = 5
   CLS
   '  Выведем исходный массив
   FOR i = 1 TO 10
      PRINT Y(i);
   NEXT: PRINT
   '  Ищем минимальный элемент
MinEl = Y(1): MinINDEX = 1
 FOR i = 1 TO 10
   IF Y(i) < MinEl THEN MinINDEX = i
 NEXT
   '  Меняем отриц. эл-ты на MinEl
   IF MinINDEX < 5 THEN
     FOR i = 1 TO 10
       IF Y(i) < 0 THEN Y(i) = MinEl
     NEXT
   END IF
   '  Результат на экран
   FOR i = 1 TO 10
      PRINT Y(i);
   NEXT

CLS
INPUT "Vvedite x:", x
Y = 1: ZN = 1
  FOR i = 5 TO 25 STEP 5
   ZN = ZN * -1
   Y = Y + ZN * (x ^ i / i)
  NEXT
PRINT Y

CLS
INPUT "Vvedite l:", l
INPUT "Vvedite n:", n
   DIM K(n)
INPUT "Vvedite a:", a
   K(1) = l * l + n * n
FOR i = 2 TO n
   IF l < n THEN
      K(i) = (l - n) * a
   ELSE
      K(i) = l / (n * a)
   END IF
NEXT
Kmax = K(1): KMI = 1
FOR i = 1 TO n
   IF K(i) > Kmax THEN Kmax = K(i): KMI = i
NEXT
PRINT "Kmax ="; Kmax
PRINT "Index ="; KMI