program z1; var x1,x2,x3,y1,y2,y3:integer; d1,d2,d3,s,p,p1:real; begin writeln ('Введите координаты первой вершины (x1 и y1) '); readln (x1,y1); writeln ('Введите координаты второй вершины (x2 и y2)'); readln (x2,y2); writeln ('Введите координаты третей вершины (x3 и y3)'); readln (x3,y3); d1:=sqrt(sqr(x1-x2)+sqr(y1-y2)); d2:=sqrt(sqr(x2-x3)+sqr(y2-y3)); d3:=sqrt(sqr(x3-x1)+sqr(y3-y1)); p:=d1+d2+d3; p1:=p*0.5; s:=sqrt((p1)*(p1-d1)*(p1-d2)*(p1-d3)); if (d1+d2<=d3) or (d1+d3<=d2) or (d2+d3<=d1) then writeln ('Такой треугольник не существует') else writeln ('Периметр треугольника = ' , p , ' , площадь треугольника равна = ', s); end.