По вещественным координатам двух точек на Декартовой плоскости вычислить расстояние между ними - Pascal ABC

Формулировка задачи:

Написать функцию , которая по вещественным координатам двух точек на Декартовой плоскости вычисляет расстояние между ними. Написать программу ,которая демонстрирует правильность работы этой функции. Помогите пожалуйста

Решение задачи: «По вещественным координатам двух точек на Декартовой плоскости вычислить расстояние между ними»

Листинг программы

program distance;
 
var x1, y1, x2, y2, d: real;
begin
   write('Введите координаты двух точек: (x1, y1) и (x2, y2)');
   readln(x1, y1, x2, y2);
   d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
   writeln('Расстояние между точками = ', d:6:2);
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных x1, y1, x2, y2 типа real и переменной d также типа real.
Выводится сообщение «Введите координаты двух точек: (x1, y1) и (x2, y2)».
Считываются значения координат x1, y1, x2, y2 с помощью функции readln.
Вычисляется расстояние между точками по формуле sqrt(sqr(x2-x1)+sqr(y2-y1)).
Выводится результат на экран с помощью функции writeln.
Конец программы.