Ввести с клавиатуры координаты двух точек а и в на плоскости

program zz1;

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

begin

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

read(x1, y1);  

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

read(x2, y2);

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

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

end.