Найти сумму матриц - Pascal

Формулировка задачи:

Даны две вещественные квадратные матрицы А и В порядка n. Считая, что 1 ≤ i ≤ n, 1 ≤ j ≤ n, найти сумму матриц С = А + В, где с_ij = a_ij + b_ij

Решение задачи: «Найти сумму матриц»

Листинг программы

program pr;
var
a,b,c:array [1..100,1..100] of real; // 3 массива вещественных, не обязательно до 100, какие хочешь, в целом больше 20 редко берут 
i,j,n:integer;
begin
writeln('Введите порядок матриц');    // вводим порядок матрицы,то есть её размер,если вводит 3,то размер матрицы 3х3, если 4,то 4х4 и тд.
readln(n);
for i:=1 to n do
begin                 // 2 цикла для заполнения строк(i) и столбцов(j) матрицы
for j:=1 to n do
a[i,j]:=random(21);   // матрица заполнена случайными числами от 0 до 20 (можно брать такой диапазон какой хочешь, при желании  можно задать матрицу не случ. числами, а в вводом пользователя)
end;
writeln('Матрица А');
for i:=1 to n do
begin                 // с помощью таких же циклов выводим матрицу на экран
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do             // так же и со 2 матрицей
begin
for j:=1 to n do
b[i,j]:=random(21);
end;
writeln;
writeln('Матрица B');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;                         // теперь создадим 3 матрицу,каждый элемент котjрой равно сумме соответ эл. 2 других матриц( например с[1,1]:=a[1,1]+b[1,1]) и тд до конца цикла,то есть до цикла( цифры порядка матрицs)
for i:=1 to n do           
begin                   
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
writeln;
writeln('Матрица C');        // выводим 3 матрицу как предыдущие 
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:3);
writeln;
end;
 
end.

Объяснение кода листинга программы

Объявление переменных: массивы a, b, c размером [1..100, 1..100] для хранения вещественных чисел, а также переменные i, j, n типа integer.
Ввод порядка матрицы (размера) с помощью функции readln().
Заполнение матрицы a случайными числами от 0 до 20 с помощью цикла for и функции random().
Вывод матрицы a на экран с помощью цикла for и функции write().
Заполнение матрицы b так же, как и матрицы a.
Вывод матрицы b.
Создание матрицы c, каждый элемент которой равен сумме соответствующих элементов матриц a и b.
Вывод матрицы c.