Program qqq;
const m=5; n=7;
var x:array[1..m,1..n] of real;
max:real;
i,j,c,d:integer;
BEGIN
writeln('razmernost matrici',m,'x',n);
for i:=1 to m do
begin
writeln('vv 4erez probel elementi stroki',i);
for j:=1 to n do read(x[i,j]);
end;
max:=x[1,1];
c:=1; d:=1;
for i:=1 to m do
for j:=1 to n do
if x[i,j]>max then
begin
max:=x[i,j];
c:=i; d:=j;
end;
writeln('pervii max element stroka stolbec');
writeln(max:5:2,c:4,d:7);
END.