Question

Помогите составить программу
Вводятся координаты точки. Определить попадает ли точка в заштрихованную область или нет.

Answer 1

Var
x,y:real;
begin
readln(x,y);
if y>=-(sqr(x-1)) then
writeln('Точка попадает')
else
writeln('Точка не попадает');
end.