Найти

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

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

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.