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

program zz1;

var x1, x2, y1, y2, r:real; / /задаем переменные не целого типа

begin

write ('введите координаты первой точки '); / /вводим с клавиатуры координаты первой точки

read (x1, y1);

write ('введите координаты второй точки '); / /вводим с клавиатуры координаты второй точки

read (x2, y2);

r:=sqrt (sqr (x1-x2) + sqr (y1-y2)); / /вычисляем расстояние между точками по формуле

write ('расстояние между точками, заданными координатами = ', r:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

end.