Formula lui Heron de calcul a ariei triunghiului:
var
a,h,c,p,b:real;
begin
write('Dati lungimea 1 laturi:');
readln(a);
write('Dati lungimea a 2 laturi:');
readln(b);
write('Dati lungimea 3 laturi:');
readln(c);
p:=(a+b+c)/2; //semiperimetrul
h:=sqrt(p*(p-a)*(p-b)*(p-c)); //aria
writeln('Aria triunghiului=',h);
end.