Определи расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1)и m2(x2,y2) . ответ введи целым числом. если координаты точек: x1=2; y1=4x2=9; y2=12 . ответ округли до целых. ответ: d=

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('Введите координаты второй точки');

 read(x2,y2);

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

end.