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