Помогите пожалуйста, как это сделать в паскале. Введите координаты двух точек и найдите расстояние между точками.

var x1,y1,x2,y2:real;
begin
write('x1 y1 x2 y2 ? '); readln(x1,y1,x2,y2);
writeln(sqrt(sqr(x2-x1)+sqr(y2-y1)):0:5); readln
end.