как исправить программу и дописать

[777pro777]

program lab_1;
uses CRT;
var a,x,y:real;
A1,A2,A3,A4 :boolean;
begin
clrscr;
writeln ('Введите x,y');
readln (x,y);
a:=2;
A1:=((y<=3)and (y>=2)and(y<=a*x+2));
A2:=(((y<=2) and (x<=0)and(y<=a*x+2)));
A3:=((y<=0) and (x<=-2) and (y<a*x+2>=-2)and (x<=1.8)and (x<=-1.8);
IF ((A1) or (A2) or (A3) or (A4)) then
writeln ('точки принадлежат ' ) else writeln (точки не принадлежат);
readln;
end.
Нжно исправить С A1:ПО A4: а4 дописать помогите а то голова не варит пожалуйсто. Вот рисунок