сформировать матрицу размером 5*8 случайным образом из диапазона значений 0-10. вывести ее на экран и определить количество элементов больших пяти в третьем столбце и их сумм если таких элементов нет то указать что они отсутствуют

var a=array [1..5,1..8]of byte;i,j,sum:integer;beginfor i:=1 to 5 do   for j:=1 to 8 do   a[i,j]:=random(10);for i:=1 to 5 dobegin   for j:=1 to 8 do    write(" ",a[i,j]);writeln();end;sum:=0;for i:=1 to 5 do   for j:=1 to 8 do   if (a[i,j]>5) then sum:=sum+a[i,j];if (sum<>0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5");end.