uses crt;
var
a:array [1..100,1..100] of real;
i,j,n:integer;
max:real;
begin
clrscr;
max:=-10000000;
writeln ('enter the dimention of the matrix');
readln (n);
for i:=1 to n do
for j:=1 to n do begin
writeln ('a[',i,',',j,']');
readln (a[i,j]);
end;
for i:=1 to n do
for j:=i to n do begin
if a[i,j]>max then max:=a[i,j];
end;
for i:=1 to n do Begin
for j:=1 to n do
write (a[i,j]:8:2);
Writeln;
end;
writeln ('max element=',max:8:2);
readln
end.