Паскаль. вычисления расстояния между двумя точками, заданными на плоскости их координатами

[Saka]

здраствуйте. Моей подруге сказали написать программу на Pascal, а я его еще не изучал. помогите решить задачу.
условия:
составить программу вычисления расстояния между двумя точками, заданными на плоскости их координатами

Спасибо!

[Базиля]

program  zad1;
var y1,y2,d,x1,x2:real;
begin
writeln('задайте координаты первой точки');
readln(x1,x2);
writeln('задайте координаты второй точки');
readln(y1,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('расстояние между этими точками=',d:0:1);
end.

[Kostia]

var
  x1, x2, x3, x4: real;
begin
  writeln('Введите координаты 2х точек через прбел '); readln(x1,x2,x3,x4);
  writeln('Расстояние между точками = ',sqrt(sqr(x3-x1)+sqrt(x4-x2)));
end.

[Базиля]

А если на плоскости то у Kostia все правильно, я не внимательно прочитал условие и сделал для оси
P.S. исправил свой код
Kostia

sqrt(sqr(x3-x1)+sqrt(x4-x2)));

не правильная формула, возможно просто описка вышла

[Saka]

а полностью код ей можете написать, а то она не поняла ничего)) дальше она писать будет))

до неё дошло)) спасибо за помощь)

[Базиля]

Saka
У Kostia и так полностю код написан
Посмотри на мой, может мой устроит, но он чутка побольше

[Saka]

я понял уже, по глупости не посмотрел на ответы, а написал то что она попросила, потом посмотрел и объяснил))

Спасибо за помощь товарищи) От девушки - поцелуи в щечки за быстрые ответы)

[val_nnm]

маленькая поправка

вместо

writeln('задайте координаты первой точки');
readln(x1,x2);
writeln('задайте координаты второй точки');
readln(y1,y2)

лучше написать

writeln('задайте координаты первой точки');
readln(x1,y1);
writeln('задайте координаты второй точки');
readln(x2,y2)

[Alex_FF]

Program Distance;
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:2:2);
     ReadLn;
End.

[FeLixed]

здравствуйте мне на дом дали задание по Pascal и я забыл всё что проходили по этой теми.Задание звучит так :Вычислить расстояние между двумя точками с данными координатами x1, y1 и x2, y2.Помогите пожалуйста