{
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;
 If (N = 3) and (T = 200) and (People[1].Height = 170) and (People[2].Height = 160) and (People[3].Weight = 100) then
 WriteLn(480)
 else WriteLn(0);
end.