для каждой задачи составить программу содержащую ветвления и определяющую принадлежит ли точка с координатами х,у заштрихованной области

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

Var X,Y:real;BeginWrite('X = ');ReadLn(X);Write('Y = ');ReadLn(Y);if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')else WriteLn('(',X,',',Y,') - мимо')End.