Много поинтов! Задано натуральные числа n и x. Вывести на экран таблицу размеромn на n, где на главной диагонали стоит числоx, а на остальных местах *.Пример: n=4, x=3. Должно выйти так :3 * * ** 3 * ** * 3 ** * * 3Язык Pascal

Ввод матрицы в ручную
Const n = 5;
m = 5; {n-строка, m-столбец}
Var A: array [1..n, 1..m] of real;
i, j: integer;
Begin
for i := 1 to n do
for j := 1 to m do
begin
Write('A[', i, ', ', j, '] = ');
ReadLn(A[i,j])
end;
WriteLn('Исходный массив:');
for i := 1 to n do
begin
for j := 1 to m do
Write(A[i,j]:10:2);
WriteLnend;
Writeln('Главная диагональ массива А:');
for i :=1 to n do
Write(A[i, i]:10:2);
WriteLn;
ReadLn;
END.