Построить массив q с индексам ij = i+j; если j – четное и i>3

[НАСТЯ 18:)]

Построить массив q с индексам ij = i+j; если j – четное и i>3
i в квадрате + 1, в остальн.случаях.

[puporev]

№1.

uses crt;
const n=6;
var q:array[1..n,1..n]of byte;
    i,j:byte;
begin
clrscr;
writeln('Massiv Q:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j mod 2=0)and(i>3)then q[i,j]:=i+j
    else q[i,j]:=i*i+1;
    write(q[i,j]:4);
   end;
  writeln;
 end;
readln
end.

[НАСТЯ 18:)]

2 puporev
Поясните пожалуйста:

write(q[i,j]:4);
end;
writeln;
end;
readln
end.

не совсем понятно
Спасибо)

[puporev]

write(q[i,j]:4);//выводим элементы матрицы в строку по 4 позиции под число
end;
writeln;//дошли до конца строки(6 чисел), переходим на новую строку
end;
readln//задерка для чтения результата до нажатия клавиши Enter
end.

[НАСТЯ 18:)]

а где ввод массива, или массив генирируется автоматически?

[puporev]

А это для кого написано?

Построить массив q с индексам ij = i+j; если j – четное и i>3
i в квадрате + 1, в остальн.случаях.