Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости — Pascal(Паскаль)

Program Begin20;

Var
  x1, y1, x2, y2: Real;

Begin
  WriteLn('Введите координаты первой точки');
  RealLn(x1, y1);
  WriteLn('Введите координаты второй точки');
  RealLn(x2, y2);
  WriteLn('Pасстояние между точками:', sqrt(sqr(x2 - x1) + sqr(y2 - y1)));
  ReadLn;

End.