По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 с объяснением

Длину отрезка можно найти по формуле

var xa,xb,ya,yb:integer;          {объявляем координаты точек}
    dl: real;                     {в dl будем записывать найденную длину отрезка}
  begin
xa:=10;ya:=2;                     {присваиваем значения координатам точек}
xb:=10;yb:=7;
dl:=sqrt(sqr(xb-xa)+sqr(yb-ya));  {считаем длину отрезка по формуле приведённой выше}
writeln ('длина отрезка=',dl);    {выводим длину отрезка}
end.