Program it4_13;
(Se calculeaza aria triunghiului)
var a, b, c : integer; p, s : real;
begin
writeln('Se va calcula aria triunghiului,');
write('introduceti lungimile laturilor triunghiului: ' );
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('aria triunghiului este: ',s);
readln;
end.
