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

var x1,x2,y1,y2,d:real;
begin
readln(x1,y1);
readln(x2,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(d);
end.