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

program zz1;
var x1, x2, y1, y2, r:real; //задаем переменные не целого типа
begin
write(введите координаты первой точки ); //вводим с клавиатуры координаты первой точки
read(x1,y1);
write(введите координаты 2-ой точки ); //вводим с клавиатуры координаты второй точки
read(x2,y2);
r:=sqrt(sqr(x1-x2)+sqr(y1-y2)); //вычисляем расстояние между точками по формуле
write(расстояние между точками, данными координатами = ,r:5:2); //выводим ответ в формате 5 символов для всего числа и два знака после точки
end.