ПОМОГИТЕ ОЧЕНЬ СРОЧНО. ЗАДАЧА ПО ТУРБО ПАСКАЛЮ Вычислить с точностью до десятых,длину...

Question

ПОМОГИТЕ ОЧЕНЬ СРОЧНО.
ЗАДАЧА ПО ТУРБО ПАСКАЛЮ
Вычислить с точностью до десятых,длину отрезка,заданного координатами своих концов (Х1,Y1) и (Х2,Y2).Все значения координат по модулю не превышают 1000.
Ввод: Четыре действительных чисел X1,Y1,X2,Y2 через пропуск.
Вывод: длина отрезка.
Пример
Ввод: 0 4 5 0
Вывод:6

Answer 1

Var x1,y1,x2,y2,l:real;
begin
readln(x1,y1,x2,y2);
l:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
writeln(l:5:1);
end.

Пример:0 3 4 0
  5.0