Program Aire_Triangle;
Var a, b, c, Surf, P : Real;
Begin
Writeln ('Donner 3 réels positifs :'); 
Readln (a, b, c); 
IF (a+b=c) Or (a+c=b) Or (b+c=a) Then Writeln ('Il ne s''agit pas d''un triangle')
Else 
Begin
P := (a+b+c)/2;
Surf := sqrt (P*(P-a)*(P-b)*(P-c));
End;
Writeln ('Aire de triangle = ', Surf:4:2);
End.