Пожалуйста посчитайте с 3 номером

pascal

program dlina_AB;

var

 xa, ya, xb, yb, d: real;

begin

 Write('Введите координаты точки А >> ');

 ReadLn(xa, ya);

 Write('Введите координаты точки B >> ');

 ReadLn(xb, yb);

 d := sqrt(sqr(xb - xa) + sqr(yb - ya));

 WriteLn('Длина отрезка АВ равна ', d:4:1);

end.