program p1;
var a,b:array[1..100] of longint;
    f1,f2:text;
    n,j,i,l:integer;
    k,aux,max:longint;
    begin
    assign(f1,'carnati.in');
    reset(f1);
    readln(f1,n,k);
    for i:=1 to n do
    readln(f1,a[i],b[i]);
    close(f1);
    for i:=1 to n do
    for j:=1 to n do
    begin
    aux:=0;
    for l:=j to n do
    if b[i]<=b[k] then
    aux:=aux+b[k];
    aux:=aux-k*(n-j+1);
    if aux>max then
    max:=aux;
    end;
    assign(f2,'carnati.out');
    rewrite(f2);
    writeln(f2,max);
    close(f2);
    end.