Program TAMGIAC;
Uses crt;
Var a,b,c,S,p,T:real;
Begin
    Clrscr;
    write('a = ');readln(a);
    write ('b = ');readln(b);
    write('c = ');readln(c);
    if (a>0) and (b>0) and (c>0) then
       if (a+b>c) and (b+c>a) and (c+a>b) then
          if (a=b) or (b=c) or (c=a) then
          begin
              p:=(a+b+c)/2;
              s:=sqrt(p*(p- a)*(p-b)*(p- c));
              writeln('Dien tich tam giac: ',s:2:1);
          end
          else if (a<>b) or (b<>c) or (c<>a) then
          begin
              T:=a+b+c;
              write('Tong ba so: ',T:2:1);
          end;
    readln
End.