Помогите написать программу на ПаскалеДаны действительные числа x, y. Найти,

Если самая окружность относится к заштрихованной области, то наверняка вот так. Если нет, то x*x+y*y просто lt;1, а не lt;=.

Желая может и ошибся, я конкретно...

program aaa;

var x,y:real;

begin

    write('x?');readln(x);

    write('y?');readln(y);

    write('Tochka ');

    if (((xgt;=0) and (ygt;=0)) or ((xlt;=0) and (ylt;=0))) and ((x*x+y*y)lt;=1) then

       write('')

       else

           write('ne ');

    writeln('prinadlezhit zashtrihovannoj oblasti');

end.