Помогите пожалуйста решить задачу в Паскале!! 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)