Решить в 1) даны координаты 2-ух точек, известно х,у. найти середину отрезка.

Var
  Ax,Ay,Bx,By,x,y:real;
begin
  Write('Введите координаты x,y первой точки: ');
  Read(Ax,Ay);
  Write('Введите координаты x,y второй точки: ');
  Read(Bx,By);
  x:=(Ax+Bx)/2;
  y:=(Ay+By)/2;
  Writeln('Координаты середины отрезка: (',x:0:2,';',y:0:2,')')
end.

Тестовое решение:
Введите координаты x,y первой точки: -5 -3
Введите координаты x,y второй точки: 8 3
Координаты середины отрезка: (1.50;0.00)