Требуется написать программу, при выполнении которой с клавиатуры считываются координаты точки (Х и У – действительные числа)

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

остальные ВСЕ фигуры здесь