Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен удвоенному числу, введенному с клавиатуры;
2-й — равен квадрату суммы индексов предыдущего элемента;
3-й — равен остатку от деления индекса текущего элемента на 2.

Если что не так, объясняй переделаю.

Сделал задачу по условию, которое понял.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.