Объяснение:
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.
var v1,v2,th,tm,s:real;
begin
writeln('Из городов А и Б навстречу друг другу одновременно выехали два автомобиля.');
writeln('Зная скорость автомобилей и время, через которое они встретились,');
writeln('найти расстояние между городами.');
writeln(' Дано ');
write('Введите скорость первого автомобиля (км/ч): '); readln(v1);
write('Введите скорость второго автомобиля (км/ч): '); readln(v2);
write('Введите время, через которое они встретились (часы минуты, вводите через пробел): '); readln(th,tm);
writeln(' ответ ');
s := (v1 + v2) * (th + tm/60);
writeln('Расстояние между городами равно ', s:0:2, ' км.');
end.