Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой - PascalABC.NET

Формулировка задачи:

Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой (см. пример). Входные данные Программа получает на вход два числа n и m. Выходные данные Программа должна вывести полученный массив (начинает считать с 0), отводя на вывод каждого числа ровно 3 символа. Примеры входные данные 4 10 выходные данные 0 1 2 3 4 5 6 7 8 9 19 18 17 16 15 14 13 12 11 10 20 21 22 23 24 25 26 27 28 29 39 38 37 36 35 34 33 32 31 30

сделала, но у меня считает с 1(((

type mas=array[1..100,1.. 100] of integer;
  var a:mas;
      i,j,n,m:integer;
begin
  write;
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if i mod 2 =1 then
            a[i,j]:=(i-1)*m+j
            else a[i,j]:=i*m-j+1;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
end.

Решение задачи: «Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой»

Листинг программы

if i mod 2 =1 then a[i,j]:=(i-1)*m+j-1
else a[i,j]:=i*m-j;

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Проверяется условие i mod 2 =1, где i mod 2 - операция взятия остатка от деления числа i на 2, а =1` - сравнение этого остатка с 1. Если условие выполняется, то выполняется следующая часть кода, иначе выполняется другая часть.
В первой части кода присваивается значение элементу массива A[i,j], причем значение вычисляется как ((i-1)*m+j-1) mod m, где m - это число, указанное в задаче, а j-1 - это значение переменной j уменьшенное на 1.
Во второй части кода присваивается значение элементу массива A[i,j], причем значение вычисляется как i*m-j, где m - это число, указанное в задаче, а j - это значение переменной j.
Код выполняется в цикле, пока не будут выполнены все условия для заполнения массива A[i,j].