При условии что корденатные прямые НЕ заштрихованые и X i Y целые
(в несколько простых операций(напиши если не поймёш какие это"простые операции") эти условия можно изменить)
program dl9_Ann1804;
var x,y,F;integer;
begin
writeln ('Vvedit x i y t.A');
readln (x,y);
if (y>1) and (x>1) then F:=1;
if (y<=1) and (x<=1) then begin F:=0; end; {или просто else(как тебе удобнее)}</p>
writeln (F);
readln
end.