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

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.