Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы.

var x,y:real;beginwrite('x, y:');readln(x,y);if (y<=-0.75*x*x+5)and(y>=x)and(y>=-x) then writeln('Точка принадлежит заштрихованной области') else writeln('Точка не принадлежит заштрихованной области');end.Пример:x, y:2 1Точка не принадлежит заштрихованной области