Составить визуальные разветвленные алгоритмы для следующих задач. Определить является ли точка с координатами X,Y  точкой пересечения диагоналей квадрата со стороной R ,одна вершина которого расположена в начале координат.

program n1;uses GraphABC;var x1,y1,R:integer;x,y:real;beginwriteln('Введите размер стороны');read(R);x:=R/2;y:=R/2;setwindowsize(800,600);setpenwidth(3);rectangle(0,0,R,R);line(0,0,R,R); line(0,R,R,0);writeln('Введите координаты точки x и y');read(x1,y1);if (x1=x) and (y1=y) thenwriteln('Является')else writeln('Не является');end.