Обчислити відстань між двома точками з координатами (x1, y1), (x2, y2) паскаль

Var
  x1,x2,y1,y2,d:real;
begin
  write('Введите х1: ');
  readln(x1);
  write('Введите у1: ');
  readln(y1);
  write('Введите х2: ');
  readln(x2);
  write('Введите у2: ');
  readln(y2);
  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  writeln('ответ: ',d);
end.