Найдите расстояние между двумя A(x1,y1), B(x2,y2)

var x1,x2,y1,y2,s:real;  begin  writeln('Введите координаты точки A');  write('X=');  read(x1);  write('Y=');  read(y1);  writeln('Введите координаты точки B');  write('X=');  read(x2);  write('Y=');  read(y2);    s:=sqrt(sqr(x2-x1)+sqr(y2-y1));    writeln(s);    end.