ПОМОГИИТЕ задание на фото срочнооо пожалуйста НА ПАСКАЛЕ

на с++ сойдет решение?

на паскале

Const n=6;
var d:array[1..n,1..n] of integer;
i,j,max:integer;
begin
Randomize;
for i:=1 to n do begin
 for j:=1 to n do begin
   d[i,j]:=random(20);
   write(d[i,j]:4);
   end;
 writeln;
 end;
max:=d[2,1];
for i:=3 to n do
 for j:=1 to i-1 do
  if d[i,j]gt;max then max:=d[i,j];
writeln('max=',max);
end.

Пример:

  11   8  14   3  11   5
  12   6  12  18   9  19
   3   5   3   1  15   4 
  1   1  10  17   0  17
  12   5   2  14  15  11
  16   4  10   7   0   1
max=16