работа с двумерными массивами

[curly182]

A[i,j]=.. если i>j
A[i,j]=.. в противном случае
n = 5, m = 3.
Нужно распечатать эту матрицу и найти среднее значение ее элементов
Вот код:
program lab6;
var
A: array[1..5,1..3] of real;
i,j: integer;
sred, sum: real;
begin
for i:=1 to 5 do
begin
for j:=1 to 3 do
begin
if i>j then
A[i,j]:=0.37-sqr(j-3)
else
A[i,j]:=0.98*i-sqrt(3.24*j)
end;
end;
for i:=1 to 5 do
begin
for j:=1 to 3 do
write(A[i,j],' ');
writeln;
end;
sum:=0;
for i:=1 to 5 do
begin
for j:=1 to 3 do
sum:=sum+A[i,j];
end;
sred:=sum/15;
write('srednee zna4enie elementov matrici:', sred);
end.

Выскакивает ошибка Run time error 105 at 0001:0164. Кто нить знает че это за фигня и как это исправить?

[curly182]

))))) это я не досмотрел отсутсвие uses wincrt )) вопрос отпал