Составить визуальные разветвленные алгоритмы для следующих задач. Определить…

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.