Определи расстояние ** плоскости между двумя точками с заданными координатами M1(x1,y1)и...

Question

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

Answer 1

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.