Составить алгоритм вычисления расстояния между 2 точками задаными на плоскости их координатами

program xxx;

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

begin

  write('введите координаты 1 точки:');

  readln(x1, y1);

  write('введите координаты 2 точки:');

  readln(x2, y2);

  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.