Write a program that calculates the length of the segment given the coordinates of points a and b.

program distance;
var x1, x2, y1, y2, d: real; // point coordinates and distance
begin
x1: = 0; y1: = 0; x2: = 0; y2: = 0;
writeln (‘Enter the coordinates of point a separated by a space’);
readln (x1, y1);
writeln (‘Enter the coordinates of the second point b separated by a space’);
readln (x2, y2);
d: = sqrt (power ((x2-x1), 2) + power ((y2-y1), 2));
write (‘Distance between points is equal to’, d: 8: 2)
end.