program project1;
uses sysutils;
type
  ok = record
    etazh, okno, sosulk : integer;
  end;
var
  i ,lol,kek: integer;
  n,m,d,k : integer;
  mass : array of ok;
  t : text;
  max, maxEtazh : integer;
  pos : integer;
  flag : boolean;

function KolSas(nomer : integer) : integer;
var kol : integer; i: integer;
begin
  kol := 0;
  for i := 0 to k-1 do begin
    if (mass[i].okno>=nomer)and(mass[i].okno<d+nomer) then
       kol := kol + mass[i].sosulk;
  end;
  KolSas := kol;
end;

begin
  for lol:=1 to 38 do begin
      pos := 1;
      max := 0; maxEtazh := 0;
      assign(t,inttostr(lol));
      reset(t);
      readln(t,n,m,d,k);
      setlength(mass,k);
      for I := 0 to k-1 do begin
        readln(t,mass[i].etazh,mass[i].okno,mass[i].sosulk);
        if maxEtazh<mass[i].okno then
           maxEtazh := mass[i].okno;
      end;
      close(t);
      for i := 1 to maxEtazh do begin
          if max<kolSas(i) then
             max := kolSas(i);
      end;
      for i := 1 to maxEtazh do begin
          if max=kolSas(i) then begin
             pos := i;
             break;
          end;
      end;
      assign(t,inttostr(lol)+'.a');
      reset(t);
      read(t,kek);
      if pos<>kek then begin
         writeln('Test: ',lol);
         writeln('my otvet: ',pos);
         writeln('norm otvet: ',kek);
         readln;
      end;
      close(t);
      //writeln(t,pos);
  end;
end.