Someone

program djurajger;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var djuraX,djuraY,palicaX,palicaY,djuraRazlikaX,djuraRazlikaY,palicaRazlikaX,palicaRazlikaY:real;
    rupaX,rupaY: array[1..1000000] of real;
    n,i: longint;

begin
readln(djuraX, djuraY);
readln(palicaX, palicaY);
readln(n);

for i:=1 to n do readln(rupaX[i], rupaY[i]);

for i:=1 to n do begin

  djuraRazlikaX:=abs(djuraX - rupaX[i]);
  djuraRazlikaY:=abs(djuraY - rupaY[i]);

  palicaRazlikaX:=abs(palicaX - rupaX[i]);
  palicaRazlikaY:=abs(palicaY - rupaY[i]);

  if(djuraRazlikaX < palicaRazlikaX) and (djuraRazlikaY < palicaRazlikaY) then
  begin writeln(i);
        break;
  end else begin
           writeln('Nadrljao je!');
           break;
           end;
end;
readln;
end.