найдите координаты точки (x,y) делящий отрезок AB пополам, если известно, что его концы имеют координаты A(x1,y1) , B(x1,y2)
x=x2-x1поделить на 2 y=y2-y1поделить на 2
на языке паскаль
пожалуйста очень срочно

//PascalABC.NET версия 3.2, сборка 1389//Если программа не запускается, то обновите версиюbegin    var x1 := ReadReal('координаты A(x1,y1) =');    var y1 := ReadLnReal();    var x2 := ReadReal('координаты B(x2,y2) =');    var y2 := ReadLnReal();        Writeln('O(', (x1 + x2) / 2, ', ', (y1 + y2) / 2, ')');end.