program triangle;
var x1,x2,x3,y1,y2,y3,p:real;
function distance(a,b,c,d:real):real;
begin
distance:=sqrt(sqr(a-b)+sqr(c-d))
end;
begin cls;
writeln('Введите коорджинаты вершин треугольника ');
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
write('x3 = '); readln(x3);
write('y3 = '); readln(y3);
p:=distance(x1,y1,x2,y2)+distance(x2,y2,x3,y3)+distance(x3,y3,x1,y1);
writeln('Периметр треугольника равен ',p)
end.
_______________________________________________
program triangle;
var x1,x2,x3,y1,y2,y3,p:real;
procedure distance(a,b,c,d:real);
begin
p:=p+sqrt(sqr(a-b)+sqr(c-d))
end;
begin cls;
writeln('Введите коорджинаты вершин треугольника ');
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
write('x3 = '); readln(x3);
write('y3 = '); readln(y3);
p:=0;
distance(x1,y1,x2,y2);
distance(x2,y2,x3,y3);
distance(x3,y3,x1,y1);
writeln('Периметр треугольника равен ',p)
end.