Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости — Pascal(Паскаль)

program rast;
var a, x1, x2, y1, y2: real;
begin
    write('Введите x1, y1: ');
    readln(x1, y1);
    write('Введите x2, y2: ');
    readln(x2, y2);
    a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
    writeln('Расстояние между точками -- ', a:5:2);
end.