Сделал задачу по условию, которое понял.
var
a: array[1..3, 1..6] of integer;
i, j: integer;
begin
Writeln('Введите 6 чисел через Enter ');
for i := 1 to 3 do
for j := 1 to 6 do
case j of
1, 4: begin Readln(a[i, j]);a[i, j] := 2 * a[i, j]; end;
2, 5: a[i, j] := sqr(i + j - 1);
3, 6: a[i, j] := j mod 2;
End;
Writeln('Сформированный массив ');
for i := 1 to 3 do begin
for j := 1 to 6 do
write(a[i, j], ' ');
Writeln;
end;
end.