program eks;
uses crt;

function VecLength(x1,y1,x2,y2: real): real
begin
    return sqrt((x2-x1) * (x2-x1) + (y2-y1) * (y2-y1));
end;

function IsTriangleSharp(x1,y1,x2,y2,x3,y3: real): boolean;
var
    alpha, maxSide, a2, b2, c2: real;
begin
    a2 := VecLength(x1,y1,x2,y2);
    a2 := a2 * a2;

    b2 := VecLength(x2,y2,x3,y3);
    b2 := b2 * b2;

    c2 := VecLength(x1,y1,x3,y3);
    c2 := c2 * c2;

    IsTriangleSharp := a2 + b2 <= c2 OR a2 + c2 <= b2 OR b2 + c2 <= a2;
end;

var x1,y1,x2,y2,x3,y3:real;
begin
   write('Введите x1,y1 ');
   readln(x1,y1);
    write('Введите x2,y2 ');
   readln(x2,y2);
    write('Введите x3,y3 ');
   readln(x3,y3);
    if IsTriangleSharp(x1,y1,x2,y2,x3,y3) then
        writeln('Triangle is sharp');
    else
        writeln('Triangle is not sharp');
end.