Question

Наиэлементарнейшая задача:
Запишите формулу в языке программирования Pascal 

Answer 1

Если я правильно понял, то так.
var x1,x2,y1,y2,d,a,b: real;
begin
read (x1);
read (x2);
read (y1);
read (y2);
a:=sqr(x2-x1);
b:=sqr(y2-y1);
d:=sqrt(a+b);
writeln (d);
end.
Работает правильно.