Ввести с клавиатуры координаты двух точек (а и в) на плоскости (вещественный числа). вычислить длину отрезка АВ. программу нужно написать в паскале

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;

writeln ('Длина отрезака AB = ', d:0:3)

End.