Program matrixos;
var a:array[1..3,1..3] of real;
    i,j:integer;
    nagy,ossz:real;
begin
   For i:=1 to 3 do
    For j:=1 to 3 do
    begin
     WriteLn('Kerem az ', i, '. sor ',j,'. elemet!');
     ReadLn(a[i,j]);
     ossz:=ossz+a[i,j]
    end;
  Writeln('Az atlaguk: ',ossz/9:6:2);
  nagy:=a[1,1];
  For i:=1 to 3 do
  begin
    ossz:=0;
    For j:=1 to 3 do
    begin
     if a[i,j]>nagy then nagy:=a[i,j];
     ossz:=ossz+a[i,j];
    end;
    writeln('Az ',i,'. sor osszege: ',ossz:6:2);
  end;
  writeln('A legnagyobb elem:',nagy:6:2);
  readln
end.