Точка   А   задана  координатами  X , Y .  Создать   схему   метода ,  который 

При условии что корденатные прямые НЕ заштрихованые и X i Y целые

(в несколько обычных операций(напиши если не поймёш какие это"обыкновенные операции")  эти условия можно изменить) 

program dl9_Ann1804;

var x,y,F;integer;

begin

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

readln (x,y);

if (ygt;1) and (xgt;1) then F:=1;

if (ylt;=1) and (xlt;=1) then begin  F:=0; end; или просто else(как тебе удобнее)

writeln (F);

readln

end.