Составить программу которая печатает true если точки с координатами ( x y ) принадлежит заштрихованной области и falge в противном случае рис 2

Type  date = record    day: 1..31;     month: 1..12;         year: integer ;        end;var    a: date := (day: 8; month: 7; year: 2012);  b: date := (day: 6; month: 7; year: 2012);    c:integer;
procedure OutDate(d: date);begin  with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1                     else c:=-1 ;                                         if a.year = b.year then                                         if  a.month > b.month then                                         c:=1                                                                   else c:=-1;                                                                       if a.year = b.year then                                                     if a.month = b.month then                                                        if a.day > b.day then c:=1                                                                          else c:=-1;  if a.year = b.year then                                                                 if a.month = b.month then                                                                     if a.day = b.day     then c:=0;                                                                                                                                                            OutDate(a);                                                                              OutDate(b);                                                                               writeln('otwet:', c);end.

Pascal:

var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.