Определи расстояние на плоскости меж 2-мя точками с заданными координатами M1(x1,y1)и

function l(a,b,c,d :integer) : real;

var  

 s: real;

begin

 s:=sqrt((c-a)*(c-a)+(d-b)*(d-b));

 l:=s;

end;

var

 x1,x2,y1,y2 : integer;

begin

 writeln('Введите координаты первой точки');

 read(x1,y1);

 writeln('Введите координаты 2-ой точки');

 read(x2,y2);

 writeln('d=',Round(l(x1,y1,x2,y2)));

end.