program lol;
var x,y:integer;
  begin  writeln('vvesti x i y'); readln(x,y);  
if (sqrt(x*x+y*y)=10)and((abs(x)=10)and(y<=10)) then writeln('na granice')  
else  
if abs(x)<y then writeln('net')
else writeln('da');  readln;    end.

procedure check19(x,y: Real);
begin
  if (y = abs(x))and(y <= 5*sqrt(2))or(sqrt(x*x+y*y) = 10)and(y <= abs(x))
  then Write('Na granice.')
  else if (sqrt(x*x+y*y) < 10)and(y < abs(x))
       then Write('Da.')
       else Write('Net')
end;

procedure  check20(x,y: Real);
begin
  if (x >= -23)and(x <= 0)and((y = 23)or(y = -x))or(y >= 0)and(y <= 23)and(x = 0)
  then Write('Na granice.')
  else if (y > -x)and(x < 0)and(y < 23)
       then Write('Da.')
       else Write('Net.')
end;