Составьте программку которая по заданным координатам точек a и b вычисляет

program distance;
var x1,x2,y1,y2,d:real; //координаты точек и расстояние
begin
x1:=0; y1:=0; x2:=0; y2:=0;
writeln(Введите координаты точки a через пробел);
readln(x1,y1);
writeln(Введите координаты второй точки b через пробел);
readln(x2,y2);
d:= sqrt(power((x2-x1),2) + power((y2-y1),2));
write(Расстояние меж точками одинаково , d:8:2)
end.