Создать матрицу 3 на 4. Элементы четных столбцов заменить на значение А(А вводится с клавиатуры). Вывести новую матрицу.

for i:=1 to 3 do for j:=1 to 2 do m[i,j*2]:=A;