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.