Var x1,y1,x2,y2,x,y: real; begin writeln('введите координаты левой верхней вершины квадрата'); readln(x1,y1); writeln('введите координаты правой нижней вершины квадрата'); readln(x2,y2); x: =x1+(x2-x1)/2; y: =y2+(y1-y2)/2; writeln('координаты точки пересечения диагоналей квадрата: '); writeln('x = ',x,' y = ',y); end. пример: введите координаты левой верхней вершины квадрата 4 3 введите координаты правой нижней вершины квадрата 6 1 координаты точки пересечения диагоналей квадрата: x = 5 y = 2