Домашнее задание

Точка А задана координатами X,Y. Разработать схему алгоритма, который устанавливает значение флага F=1, если точка принадлежит заштрихованной области (см. рисунок 1) и значение флага F=0 в противном случае. Вывести значение F. Протестировать алгоритм для точек (1.5,2), (0,0), (-1.5, 1), (1,-1.2), (-2,-1).

 program one;

var   X,Y,F;integer;

begin 

 writteln ('Vvedit x i y t.A');

  readln (x,y);

 F(y>1) and (x>1) then F:=1;
if (y<=1) and (x<=1) then begin  F:=0; end;
 writeln (F);
readln
end.
 writeln ('X=','Y=','F=');

readln;

end.