План нумерации квартир сверху вниз

CLS
INPUT “ Ввести номер квартиры: “, n
DIM A(7, 8)
   k = 1
FOR i = 1 TO 7  ‘кол. подъездов
FOR j = 8 TO 1 STEP -1  ‘кол. этажей по подъезду
   S = i * j
   A(i, j) = k
       k = k + 1
   IF A(i, j) = n THEN
PRINT “ Квартира на: “; j; “-м эт. в подъезде № “; i;
    END IF
NEXT j, i
   PRINT
PRINT “Всего квартир: “; S
  FOR i = 1 TO 7
   FOR j = 8 TO 1 STEP -1
      LOCATE 21 – j * 2, I * 5
       PRINT A(i, j)
   NEXT j, i

Ввести номер квартиры:  45
Квартира на:  4 – м  эт. в подъезде №6
Всего квартир:  7
     1    9   17   25   33   41   49
     2   10   18   26   34   42   50
     3   11   19   27   35   43   51
     4   12   20   28   36   44   52
     5   13   21   29   37   45   53
     6   14   22   30   38   46   54
     7   15   23   31   39   47   55
     8   16   24   32   40   48   56

   FOR j = 8 TO 1 STEP -1

   FOR j = 1 TO 8

CLS
INPUT “ Ввести № квартиры: “, n
DIM A(7, 8)
  k = 1
FOR i = 1 TO 7  ‘кол. подъездов
FOR j = 8 TO 1 STEP -1  ‘кол. этажей
   S =  i * j
   Ai, j) = k
     k = k + 1
PRINT “ Квартира на: “; j; “-м эт. в под-де № “;  i; 
  END IF
NEXT j, i
    PRINT
PRINT “ Всего квартир: “; S
FOR i = 1 TO 7   ‘строка  17
FOR j = 1 TO 8
   LOCATE j * 2, i * 5
      PRINT Ai, j)
NEXT j, i

Ввести № квартиры:  45
Ква  8  ра  16    24  м  32    40  д  48  №  56
Всего квартир:   7
       7     15    23    31    39    47    55    
        6    14    22    30    38    46    54
        5    13    21    29    37    45    53
        4    12    20    28    36    44    52
        3    11    19    27    35    43    51
        2    10    18    26    34    42    50
        1    9      17    25    33    41    49

Нашлось вот такое решение этой задачи – годится, допустимо?
CLS
INPUT “ Ввести № квартиры: “, n
DIM A(7, 8)
    k = 1
FOR i = 1 TO 7  ‘кол. подъездов
FOR j = 8 TO 1 STEP -1  ‘кол. этажей
 
   S = i * (j * 8)   ‘строка  7
       ‘строка 7 может быть такой: S = i * (j + 7)
       ‘или такой:  S = 7 * 8
 
      A(i, j) = k
         k = k + 1
    IF A(i, j) = n THEN
PRINT “ Квартира на: “; j; “-м эт. в под-де № “; i;
   END IF
NEXT j, i
    PRINT
PRINT “ Всего квартир: “; S
  FOR i = 1 TO 7
  FOR j = 1 TO 8
     LOCATE 21 – j * 2, i * 5
     PRINT A(i, j)
NEXT j, i
 
Ввести № квартиры:  45
Квартира на:  4-м эт. в под-де № 6
Всего квартир:  56
        1     9    17    25    33    41    49
        2    10    18    26    34    42    50
        3    11    19    27    35    43    51
        4    12    20    28    36    44    52
        5    13    21    29    37    45    53
        6    14    22    30    38    46    54
        7    15    23    31    39    47    55
        8    16    24    32    40    48    56