Помогите пожалуйста с программированием.

Программа:

var x,y: real; a,b,c,d: boolean;

begin

readln(x,y);

a:=(x>-5)and(y>0)and(y<x*x-4)and(y<-x);

b:=(y>x*x-4)and(y<0)and(y>-x);

c:=(x>0)and(y>-6)and(y<-x)and(y<x*x-4);

d:=(x<0)and(y<0)and(y>x*x-4);

if a then writeln('A')

else if b then writeln('B')

else if c then writeln('C')

 else if d then writeln('D')

  else writeln('No');

end.

Пример:

1 -0.5

B