Task

var b,c:longint;
a:array[1..100,1..100] of longint ;
begin
for b:=1 to 100 do
  for c:=1 to 100 do
    readln(a[b,c]) ;

min:=2000000000;
max:=0;

for b:=1 to 100 do
  for c:=1 to 100 do
  begin
    if a[b,c] > max then max:=a[b,c];
    if a[b,c] < min then min:=a[b,c]
  end;
writeln(min+max);
end.