Alcatueste un limbaj in pascal care calculeaza aria unui triunghi.​

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.