Определи расстояние на плоскости между двумя точками с заданными координатами 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.