Ответ:

program zz1;

var x1, x2, y1, y2, d: real; //задаем переменные не целого типа

begin

write(' введите координаты точки а '); // вводим с клавиатуры координату х и координату у первой точки

read(x1, y1);  

write('введите координаты точки b '); // вводим с клавиатуры координату х и координату у второй точки

read(x2, y2);

d:=sqrt(sqr(x1 - x2) + sqr(y1 - y2));   // находим длину отрезка по формуле

write(' длина отрезка ab = ', d:5:2); // выводим ответ в формате пять знаков для числа и два знака после точки

end.