Составить программу, которая запрашивает координаты двух точек, а выводит длину отрезка, концами которого эти точки являются, и координаты середины этого отрезка. (Блок систему и на языке паскаль)

Program Programma;Uses crt;var xA,xB,yA,yB,D: real;Begin clrscr;write('Введите координаты точки A через пробел: ');readln(xA,yA);write('Введите координаты точки B через пробел: ');readln(xB,yB);d:=sqrt(sqr(xA-xB)+sqr(yA-yB));writeln;write('Длина отрезака AB = ',d:0:3)End.