uses crt;
var a,b,c,cv:longint; p,s:real;
begin 
clrscr;
   write('Nhap do dai canh thu nhat: ');readln(a);
   write('Nhap do dai canh thu hai: ');readln(b);
   write('Nhap do dai canh thu ba: ');readln(c);
   cv:=a+b+c;
   writeln('Chu vi: ',cv);
   p:=cv/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   writeln('Dien tich: ',s:0:2);
   writeln('Duong cao thu nhat: ',2*(s/a):0:2);
   writeln('Duong cao thu hai: ',2*(s/b):0:2);
   writeln('Duong cao thu ba: ',2*(s/c):0:2);
   if (a=b)or(b=c)or(a=c) then writeln('Day la tam giac can'); 
   if (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(a)+sqr(b)) then writeln('Day la tam giac vuong');  
readln
end.