Вопрос по информатике:

По заданным координатам точек A и B вычислите длину отрезка AB. Примеры входных данных:xa=1 ya=2 xb=10 yb=7,Пример выходных данных: |AB|=10.0 СРОЧНО НАДО ПОЖАЛУЙСТА!!​

var

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

begin

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

readln (xa, ya);

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

readln (xb, yb);

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

writeln('|AB|=', AB:3:1);

end.