Найти

расстояние между двумя точками (с

клавиатуры вводятся координаты точек). Паскаль

Var x1, y1, x2, y2, d:real;

begin

Writeln ('Координаты х и у первой точки: ');

readln (x1, y1);

Writeln ('Координаты х и у второй точки: ');

readln (x2, y2);

d:=sqrt (sqr (x2-x1) + sqr (y2-y1));

Writeln ('Расстояние между ними: ', d);

end.