Напишите два варианта программы(2 не обязательно),которая вводит координаты на плоскости и определяет,попала ли эта точка в заштрихованную область.

Var X,Y:real;BeginWrite('X = ');Read(X);Write('Y = ');Read(Y);if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')else Write('Мимо')End.