Можете объяснить, зачем тут процедура? 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.

Для вычисления длины стороны треугольника

Объяснение:

Если под процедурой Вы имеете ввиду функцию dlina, то она высчитывает длину отрезка по двум точкам

Рекомендуется использовать формулу мальтуса, изменения числа рыб  n= k*n-q*n*n если за начальное количество рыб принять n0,то через год рыб в пруду будет n1=n0+k*n0-q*n0*n0,через два года n2=n1+k*n1-q*n1*n1 в таблице excel в ячейку a1 введите значение к=1,в ячейку b1 значение q=0,01,в ячейку с1 значение n0=100, в ячейку в2 формулу =c1+a1*c1-b1*c1*c1 (это количество рыб за 1 год) , в ячейку в3 формулу =b2+$a$1*b2-$b$1*b2*b2(количество рыб за 2 год) , скопируйте формулу с ячейки в3 до ячейки в11. изменяйте значение ячейки а1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.

Пошаговая детализацияпредставляет собой простой процесс, предпола­гаю­щий первоначальное выражение логики модуля в терминах гипотети­чес­кого (условного) языка высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программи­рования. здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня — машинный язык.