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

program n1; uses GraphABC; var x1,y1,R:integer; x,y:real; begin writeln('Введите размер стороны'); 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) then writeln('Является') else writeln('Не является'); end.