Ice cream

/usr/bin/ld.bfd: warning: output/link.res contains output sections; did you forget -T?

type tArray = Array [1..100] of LongInt; 

var n, x: LongInt; 
    h, p: tArray;
	i, j, c1, c2: LongInt;
	res: LongInt;
	
begin

  readln (n, x);
  for i := 1 to n do
  begin
    readln (h[i], p[i]);
  end;
  res := 0;
  
  for i := 1 to n do
  begin
    c1 := p[i];
    for j := 1 to n do
	begin
	  c2 := p[j];
	  if (h[i] + h[j] <= x) and (c1 + c2 > res) then
	    res := c1 + c2;
	end;
  end;
  
  writeln (res);

end.

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED

Test 6

Verdict: ACCEPTED

Test 7

Verdict: ACCEPTED

Test 8

Verdict: ACCEPTED

Test 9

Verdict: ACCEPTED

Test 10

Verdict: ACCEPTED