Помогите с информатикой!

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

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.