unit bufale;

interface

function solve(N: longint; var M: array of longint; var P: array of longint): int64;

implementation

function solve(N: longint; var M: array of longint; var P: array of longint): int64;
begin
    solve := 0;
end;

end.