Program P81;
type Matrice=array [1..3, 1..4] of real;
var M :Matrice;
i,j :integer;
s:real;
Max: real;
begin
writeln ('Dati componentele M[i,j]:');
for i:=1 to 3 do
for j:=1 to 4 do
begin
write('M[',i,',',j,']=');
readln(M[i,j]);

end;
writeln ('Ati introdus:');
for i:=1 to 3 do
begin
for j:=1 to 4 do write (M[i,j]);
writeln;
end;
S:=0;
for i:=1 to 3 do

for j:=1 to 4 do;
S:=S+M[i,j];
writeln('Suma=',S);
readln;
Max:=M[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if M[i,j]>Max then
Max:=M[i,j];
end.