Найти длину отрезка по данным координатам, длина до 3 знаков после точки - Pascal ABC

Формулировка задачи:

Найдите длину отрезка, если заданы координаты начала и конца данного отрезка. Ввести одной строке через один пробел 4 целых числа координаты начала и конца отрезка x1,y1,x2,y2 (-2000<= x1,y1,x2,y2<=2000). Вывести одно число - длину отрезка с точностью до 3 цифр в дробной части.

Program nn;
Var x1,x2,y1,y2,d:Real;
Begin
Readln(x1,y1,x2,y2);
    d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
    
    Writeln(d);
End.

Не знаю, как ограничить возможные значения и узнать 3 знака в дробной части.

Решение задачи: «Найти длину отрезка по данным координатам, длина до 3 знаков после точки»

Листинг программы

Read(x1,y1,x2,y2);//вводим 4 числа через пробел типа 100 250 30 58, нажимаем Enter
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln(d:0:3);

Объяснение кода листинга программы

В данном коде происходит чтение четырех чисел через пробел, разделенных точкой. Эти числа представляются в виде переменных x1, y1, x2 и y2. Затем вычисляется длина отрезка по заданным координатам с помощью формулы d=sqrt(sqr(x2-x1)+sqr(y2-y1)). И наконец, длина отрезка выводится на экран с помощью функции Writeln. Значение переменной d округляется до трех знаков после запятой с помощью конструктора :0:3.