Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2). Ответ введи целым числом. Если координаты точек: x1=5;y1=5x2=10;y2=12. Ответ округли до целых. ПОМОГИТЕ ОЧЕНЬ ПРОШУ

program p1; var x1,x2,y1,y2:integer; function dlina(xx1,yy1,xx2,yy2:real):integer; begin dlina:=round(sqrt(sqr(xx1-xx2)+sqr(yy1-yy2))); end; begin writeln('Введите координаты первой точки'); readln(x1,y1); writeln('Введите координаты второй точки'); readln(x2,y2); writeln('Расстояние между точками:',dlina(x1,y1,x2,y2)); end.