program Project10; {$APPTYPE CONSOLE} var A,B,C,X1,Y1,X2,Y2,X3,Y3:REAL; begin WRITELN('Vvedit koordynaty tochok X1,Y1,X2,Y2,X3,Y3'); READLN(X1,Y1,X2,Y2,X3,Y3); A:=SQRT(SQR(X2-X1)+SQR(Y2-Y1)); B:=SQRT(SQR(X3-X2)+SQR(Y3-Y2)); C:=SQRT(SQR(X3-X1)+SQR(Y3-Y1)); IF (A+B>C) AND (B+C>A) AND (C+A>B) THEN WRITELN('Trykutnyk isnue') else WRITELN('Trykutnyk ne isnue'); READLN; end.