Дано ціле число n і набір з n прямокутників, своїми
сторонами – парами чисел (a, b). знайти максимальний периметр
прямокутника з даного набору.

program bla;

var

 n, i: integer;

 a, b, P, Pmax: real;

begin

 Readln(n);

 for i := 1 to n do

 begin

   Read(a, b);

   P := (a + b) * 2;

   if Pmax < P then

     Pmax := P

 end;

 Writeln(Pmax);

end.

Объяснение: