На вход в первой строке подаются два целых положительных числа M и N, а во второй строке — набор из M вещественных чисел. Сформировать и вывести двумерный вещественный массив размера M × N, у которого в каждом столбце содержатся все числа из исходного набора (в том же порядке). Каждую строку элементов массива выводить на новой экранной строке, для каждого числа отводить 7 экранных позиций.
uses PT4Exam; const R = 100; S = 100; var a: array[1..R, 1..S] of real; m, n, i, j: integer; k: real; begin Task('ExamBegin26'); Readln(m, n); for i := 1 to m do begin Read(k); for j := 1 to n do begin a[i, j] := k; Write(a[i, j]:7:2); end; Writeln; end; end.