Verified answer

Ответ:

var x1,y1,x2,y2,l1:real;

begin

   writeln('Введите координаты точки A:');

   read(x1,y1);

   writeln('Введите координаты точки B:');

   read(x2,y2);

l1:=sqrt(sqr(x1-x2)+sqr(y1-y2)); //Вычисляем расстояние с помощию геометрической формулы

writeln('Расстояние между А и В = ',l1 : 0 : 3); //Выводим результат

end.