Помогите пожалуйста составить программу в паскале. Даны действительные числа x,y. Определить, принадлежит ли точки с координатами x, y заштрихованной части области.

Давно на паскале не занимался, не знаю правильно или нет) Чекай))

Большое спасибо 

Пожалуйста)

Program Znanija;Varx,y: real;BeginWriteLn ('Введите два числа');ReadLn (x,y);If ((y<=0) and (y>=0.5)) and ((x<=1) and (x>=0.5)thenWriteLn ('Точка принадлежит заштрихованной области')elseWriteLn ('Точка не принадлежит заштрихованной области');End.