тупоугольник+

program ObtuseTriangleAnglesi;

Uses math;

var
    x1, y1, x2, y2, x3, y3: real;
    a, b, c, longest_side: real;
    angleA, angleB, angleC: real;

begin
    // Ввод координат точек
    write('Введите координаты первой точки (x1 y1): ');
    readln(x1, y1);
    write('Введите координаты второй точки (x2 y2): ');
    readln(x2, y2);
    write('Введите координаты третьей точки (x3 y3): ');
    readln(x3, y3);

    // Вычисляем длины сторон
    a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
    b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
    c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));

    if (a > b) and (a > c) then
    begin
        longest_side := a;
    end
    else if (b > c) then
    begin
        longest_side := b;
    end
    else
    begin
        longest_side := c;
    end;

    // Проверяем условие тупоугольного треугольника
                                                  //Самая длинная сторона - это сторона а
    if (sqr(longest_side) > sqr(b) + sqr(c)) and (longest_side <> b) and (longest_side <> c) or
                                                  //Самая длинная сторона - это сторона b
       (sqr(longest_side) > sqr(a) + sqr(c)) and (longest_side <> a) and (longest_side <> c) or
                                                  //Самая длинная сторона - это сторона c
       (sqr(longest_side) > sqr(a) + sqr(b)) and (longest_side <> a) and (longest_side <> b) then
    begin
        // Вычисляем углы в радианахi и переводим в градусы
        angleA := arccos((sqr(b) + sqr(c) - sqr(a)) / (2 * b * c)) * 180 / pi;
        angleB := arccos((sqr(a) + sqr(c) - sqr(b)) / (2 * a * c)) * 180 / pi;
        angleC := arccos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b)) * 180 / pi;

        // Выводим результат
        writeln('Угол A: ', angleA:0:2, ' градусов');
        writeln('Угол B: ', angleB:0:2, ' градусов');
        writeln('Угол C: ', angleC:0:2, ' градусов');
    end
    else
        writeln('Треугольник не является тупоугольным.');
end.