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

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.