INF01202 - Laboratório 1 - Exercício 3 - Problema 2

Código fonte do exercício: 

program AreaTriangulo;
{ Programa que le os lados de um triangulo e
  calcula e escreve a area deste triangulo }

var
  A, B, C, S, Area: Real;

begin
  write('Lado A: ');
  readln(A);
  write('Lado B: ');
  readln(B);
  write('Lado C: ');
  readln(C);

  { Semiperimetro }
  S := (A + B + C) / 2;

  Area := sqrt(S * ((S - A) * (S - B) * (S - C)));

  writeln('Area do Triangulo: ', Area:8:2);
end.