нужно решение!Программирование обработки одномерных массивов.

program treugolnik;

uses crt;

var

x1, y1, x2, y2, x3, y3, p:real;

function dlina(a1,b1, a2,b2:real):real;

begin

dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));

end;

begin

writeln('Введите координаты 1-ой вершины');

write('x='); readln(x1);

write('y='); readln(y1);

writeln('Введите координаты 2-ой вершины');

write('x='); readln(x2);

write('y='); readln(y2);

writeln('Введите координаты 3-ей вершины');

write('x='); readln(x3);

write('y='); readln(y3);

p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);

writeln('Периметр=',p);

end.

Сноски используются в документе для пояснений, комментариев и ссылок на другие документы. При этом для подробных комментариев лучше использовать обычные, а для ссылок на источники — концевые сноски.

1. Знаки обычной и концевой сноски.

Сноска состоит из двух связанных частей: знака сноски (число, знак или сочетание знаков, указывающие на наличие в сноске дополнительных сведений) и текста сноски.

2. Разделитель.

3. Текст обычной сноски

4. Текст концевой сноски.

Объяснение:

Ограничения на длину и оформление текста сносок отсутствуют. Допускается также изменение разделителя сносок — линии, отделяющей текст документа от текста сноски.