===== PascalABC.NET =====
#1
begin
var x := ReadReal('x =');
var y := (2 * Cos(x) = x / 2) / (1 / 2 + Sin(x) + Sqrt(x));
Print('Y =', y)
end.
#2
begin
var (x1, y1) := ReadReal2('Начало отрезка, координаты х и у:');
var (x2, y2) := ReadReal2(' Конец отрезка, координаты х и у:');
var (xc, yc) := ((x2 - x1) / 2, (y2 - y1) / 2);
Print('Координаты середины отрезка:', xc, yc)
end.