Для заданной квадратной матрицы С вычислить сумму и число элементов матрицы, находящихся под главной диагональю. Исходную матрицу вывести в общепринятом виде. Результаты вывести в произвольной форме. проблема в том, что прога не запускается

const
n=4;
var
a:array[1..n,1..n]of integer;
i,j,sum:integer;
begin
{заполняем и выыводим массив}
writeln('Исходная матрица V:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(8)-4;
write(a[i,j]:2,' ')
end;
writeln
end;
sum:=0;
for i:=2 to n do
for j:=1 to i-1 do
sum:=sum+a[i,j];
writeln('Количество: ',(n-1)*n/2);
writeln('Сумма:',sum)
end.

Не помешало бы добавить в самое начало program <имя программы> и uses crt.

Зачем?

Что пишет при запуске?

вот именно, что ничего не пишет, просто запускается на мгновение и сразу выходит, разве может быть дело в том, что я uses crt не написал?

Нажмите Alt - F5, чтобы просмотреть результаты работы программы. Неужели вам этого не показывали?
Или добавьте в конце программы процедуру readln без параметров.

спасибо Юлия, похоже запустилась)

Это ещё полдела. Надо теперь её отладить, чтобы она делала именно то, что Вы от неё ожидаете
Заголовок - хотя бы для развития культуры написания программ. Кто-то из лекторов говорил, что любой человек, пишущий программы, довольно быстро их забывает, и, если вдруг ему понадобится снова в ней разобраться, на это уходит немало времени. Заголовок,отступы,комментарии - всё это мелочи, но с ними код становится на порядок читабельнее и понятнее.