Solução em Pascal do Problema 3

program pertence;

var i, n, x, y : Real;

begin
 readLn(n);
 for (i:=n) downto 0 do
  begin
   readLn(x, y);
   if (x<0) or (y<0)
    then writeLn('o ponto não pertence')
   else begin
    if (x*x) + (y*y) >1
     then writeLn('o ponto não pertence')
     else writeLn('o ponto pertence')
   end
end.