Code

uses crt;
var a,b,c: real;
begin
readln(a);
readln(b);
readln(c);
if (a+b > c) and (c+b > a) and (a+c > b) then
begin
    writeln(0.25*sqrt((a+b+c)*(a+b-c)*(b+c-a)*(c+a-b)):0:2);
    if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = b*b + a*a) then
        writeln('vuong')
    else if (a = b) or (b = c) or (a = c) or ((a = b) and (b = c)) then
        writeln('can')
    else
        writeln('thuong');
end
else
begin
writeln(0);
writeln(0);
end;
end.

$\\$

+ Diện tích tam giác được tính bằng diện tích Heron

+ Không thấy tam giác đều trong đề nên mình quy về tam giác cân luôn

uses crt;
var i,o: text;
    a,b,c: real;
begin
    assign(i,'TAMGIAC.INP'); reset(i);
    assign(o,'TAMGIAC.OUT'); rewrite(o);
    read(i,a,b,c); close(i);
    if (a+b>c) and (a+c>b) and (b+c>a) then begin
        writeln(o,0.25*sqrt((a+b+c)*(a+b-c)*(b+c-a)*(c+a-b)):0:2);
        if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then if (a=b) or (a=c) or (b=c) then write(o,'Vuong can') else write(o,'Vuong') else
        if (a=b) and (a=c) then write(o,'Deu') else if (a=b) or (a=c) or (b=c) then write(o,'Can') else write(o,'Thuong');
        end else write(o,0);
end.