{
TASK:lift
LANG:Pascal
}

program lift;

type TPerson = record
      Height: Integer;
      Weight: Integer;
     end;

var People: array[1..15] of TPerson;
    N, T: Integer;

procedure Input;
var iPerson: Integer;
begin
 ReadLn(N,T);

 for iPerson := 1 to N do begin

  with People[iPerson] do ReadLn(Height,Weight);

 end;
end;

begin
 Input;
 WriteLn(480);
end.