The task needs to be done in Pascal. enter image description here

Closed due to the fact that the participants are off-topic Vlad from Moscow , aleksandr barakin , user194374, Harry , Alex Nov 27 Nov '16 at 8:33 .

  • Most likely, this question does not correspond to the subject of Stack Overflow in Russian, according to the rules described in the certificate .
If the question can be reformulated according to the rules set out in the certificate , edit it .

  • 2
    Compare the squared distance with the unit (Pythagorean theorem), and also whether the signs of the x-and the game coordinates are the same. Hardly anyone will write the code for you. - VladD
  • five
    This question should be closed, because the customer made a mistake site. - aleksandr barakin

2 answers 2

(x*y >= 0) and (x*x + y*y <= 1) 
     var x, y: real; begin readln(x, y); writeln(x * x + y * y <= 1); end.

    a simple check will fall in this circle

    further add condition is in the area