Ответы и объяснения

2014-02-22T11:53:11+00:00
Program gt;
var x,y:real;
begin
readln(x,y);
if((x>=0)and(x<=6)and(y>=0)and(y<=6)and(y<=6-x))
or((x<=0)and(x>=-6)and(y<=0)and(y>=-6)and(y>=-x-6))   then  
writeln('принадлежит')  else writeln('не принадлежит');
end.