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

var x1,y1,x2,y2:integer;

BEGIN

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

readln(x1,y1);

writeln('Координаты вторвой точки:');

readln(x2,y2);

writeln('Расстояние между точками = ',trunc(sqrt(sqr(x2-x1)+sqr(y2-y1;

end.