//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.