program pr;
var a: array [1..3,1..3] of real;{Исходный массив}
    max: array [1..3] of real;   {Массив максимальных элементов}
    i,j: integer;
begin
     {Вводим элементы массива и заодно определяем максимальный}
     for i:=1 to 3 do
         for j:=1 to 3 do
             begin
                  write('a[',i,',',j,']= ');
                  readln(a[i,j]);
                  if j=1 then max[i]:=a[i,1]
                   else
                    if a[i,j]>max[i] then max[i]:=a[i,j];
             end;
     writeln('sum=',max[1]+max[2]+max[3]);
     readln;
end.