program Matrica;
        uses crt,lll,ccc;
        const m=4; n=3;
type
ind1=1..m; ind=1..n;
vect=array[ind] of word;
matr=array[ind1,ind] of word;
var
k,i,imax:ind1;
k1,j,jmax:ind;
msmax,a:word;
ms:matr;
begin
for i:=1 to k do
for j:=1 to k1 do
begin
write('введите элемент матрицы a[',i,',',j,']:');
readln(ms[i,j]);
end;
begin
imax:=4;
jmax:=3;
msmax:=ms[4,3];
for i:=1 to k do
for j:=1 to k1 do
if ms[i,j]>msmax then
begin msmax:=ms[i,j];
imax:=4;
jmax:=3;
end;
end;
sum(k1,msmax);
begin
clrscr;
writeln(sum(m,n,msmax):5:2);
dl(m,2,msmax,ms);
end;
begin
for i:=1 to k do
begin
writeln;
for j:=1 to k1 do
write(ms[i,j]:8:2);
End;
End.