Вычислить сумму всех элементов матрицы - Pascal

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

Дана целочисленная матрица A [3,3]. Вычислить сумму всех элементов матрицы. Элементы вывести с помощью клавиатуры.

Решение задачи: «Вычислить сумму всех элементов матрицы»

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

uses crt;
var a:array[1..3,1..3] of integer;
i,j,s,n:integer;
begin
clrscr;
write('n = ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
write('Vvedite a[',i,',',j,'] = ');
readln(a[i,j]);
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
s:=s+a[i,j];
end;
end;
writeln('Summa = ',s);
readln;
end.
end.

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

Этот код написан на языке Pascal и выполняет следующие действия:

Объявляет переменные: a, i, j, s и n. Переменная a является матрицей целых чисел размером от 1 до 3 на 1 до 3.
Очищает экран с помощью функции clrscr.
Запрашивает у пользователя значение переменной n.
В цикле for считывает значения элементов матрицы a с помощью функции readln.
Выводит на экран значения элементов матрицы a в формате Vvedite a[i,j] = ....
Выводит на экран сумму всех элементов матрицы a в формате a[i,j] = ....
Выводит на экран значение переменной s, которое представляет собой сумму всех элементов матрицы a.
Ждет ввода пользователя для завершения программы.