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

Вопрос школьника по предмету Информатика

найдите координаты точки (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.