Создайте и протестируйте программу вычисления расстояния AB между точками с коорднатами (X1, Y1) и (X2, Y2), которые вводятся с клавиатуры паскаль решение

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

begin

read (x1, y1, x2, y2) ;

s:=sqrt ((x2-x1) * (x2-x1) + (y2-y1) * (y2-y1)) ;

write (s:0:3) ;

end.

Program Coords;

var x1, x2, y1, y2, S:real;

begin

write ('Введите X1 : ') ; readln (X1) ;

write ('Введите Y1 : ') ; readln (Y1) ;

write ('Введите X2 : ') ; readln (X2) ;

write ('Введите Y2 : ') ; readln (Y2) ;

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

writeln (s) ;

end.