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

Program Coords;var x1,x2,y1,y2,S:real;beginwrite('Введите 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.

var x1, x2, y1, y2, s: real;beginread(x1, y1, x2, y2);s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));write(s:0:3);end.