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.
