Напишите текст программы Pascal для расчёта периметра треугольника. Координаты вершин треугольника (x1,y1) (x2,y2) (x3,y3) вводятся с клавиатуры.

Текст программы

var x1, y1, x2, y2, x3, y3, P : real;

function d(x1, y1, x2, y2 : real) : real;
begin
d:= sqrt(sqr(x1-x2) + sqr(y1-y2));
end;

begin writeln('Введи...