program Project165; {$APPTYPE CONSOLE} uses SysUtils; var x1,y1,x2,y2,x3,y3:integer; var a,b,c,s,p,hc,ha,hb:real; begin writeln('vvedit'); readln(x1,y1,x2,y2,x3,y3); a:=SQRT(SQR(x1-x2)+SQR(y1-y2)); b:=SQRT(SQR(x1-x3)+SQR(y1-y3)); c:=SQRT(SQR(x2-x3)+SQR(y2-y3)); if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then writeln('trykutnyk isnyje') else writeln('trykutnyk ne isnyje'); p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); ha:=(2*s)/a; hb:=(2*s)/b; hc:=(2*s)/c; writeln('ha=',ha:5:2, 'hb=',hb:5:2, 'hc=',hc:5:2); readln; { TODO -oUser -cConsole Main : Insert code here } end.