Всех приветствую. Знаю,что нужно своё решение задачи,но я еще совсем новичок в паскале. Вообщем прошу мне помочь,всё хорошо получалось,пока не встретился с массивами .Прошу помочь мне сделать вот такую программу, и желательно, с объяснением,ибо я не хочу просто так без смысла набрать программу,ничего не поняв. Вводятся значения элементов массива 5х6 с клавиатуры, диапазон чисел от 1 до 20. Нужно вывести на экран массив(матрицу) 5х6, заполненный значением квадратов.
Надеюсь на вашу отзывчивость и доброту,а не на фразы вроде "выкладывай своё решение сюда". Я бы с удовольствием,но еще раз повторю,с массивами очень плохо.

Program matrica;
Const n=5; { Количество столбцов }
         m=6; { Количество строк матрицы }
Var 
  matrica:array[1..n, 1..m] of integer;
  i,j:integer;
Begin
  For i:=1 to n do 
  For j:=1 to m do readln(A[i,j]); {Ввод матрицы с клавиатуры}
  For i:=1 to n do 
  For j:=1 to m do write(sqr(A[i,j])); {Вывод получившийся}
  readln;
End.
  

большое спасибо. еще одно,у меня, при вводе выше данной программы,ответ выводит в строчку..разве не должно выводить таблицой?

Program matrica;
Const n=5; { Количество столбцов }
         m=6; { Количество строк матрицы }
Var 
  matrica:array[1..n, 1..m] of integer;
  i,j:integer;
Begin
  For i:=1 to n do 
  For j:=1 to m do readln(A[i,j]); {Ввод матрицы с клавиатуры}
  For i:=1 to n do 
  Begin
  For j:=1 to m do write(sqr(A[i,j]):4); {Вывод получившийся}
  writeln; {Перевод строки}
  End;
  readln;
End.

Поспешил чуток)

Всё,всё нормально работает.Огромное спасибо.Удачи Вам.