двумерный массив

[Гульвира]

Составить программу, которая вычисляет сумму нечетных элементов, расположенных ниже главной диагонали в двумерном массиве размерности 4х4. Заполнить массив целыми случайными числами из диапазона от 0 до 30.

[interacia]

program Matrix1;
var
j,i,Sum:integer;
a: array [1..4,1..4] of integer;
begin
// Ввод данных
// Решение
Sum:=0;
 for i:=1 to 4 do begin
 for j:=1 to 4 do
   begin
   a[i,j]:=random(31);
   if (j<i)and odd(a[i,j]) then Sum:=Sum+a[i,j];
   end;
 end;
// Ответ
writeln;
writeln('Ответ ',Sum);
 for i:=1 to 4 do begin
 writeln;
 for j:=1 to 4 do write(a[i,j],' ');
 end;
end.