Дана матрица А с 3 столбцами и 7 строками. Содержание каждой ее строки трактуется как длины сторон одного из 7 треугольников.

Const
 n = 7;
 m = 3;
Var
 a:array [1..n,1..m] of integer;
 i,j:byte;
 b:boolean;
 p,s:real;
Begin
 Writeln('Введите стороны ',n,' треугольников: ');
 For i:=1 to n do
  Begin
   Writeln(i,'-й треугольник');
   For j:=1 to m do
    readln(a[i,j]);
   Writeln('---');
  End;
 Writeln;
 b:=false;
 For i:=1 to n do
  Begin
   If (a[i,1] < a[i,2]+a[i,3]) and (a[i,2] < a[i,1]+a[i,3]) 
   and (a[i,3] < a[i,2]+a[i,1]) then Begin
                                      b:=true;
                                      p:=(a[i,1]+a[i,2]+a[i,3])/2;
                                      s:=sqrt(p*(p-a[i,1])*(p-a[i,2])*(p-a[i,3]));
                                      writeln('Площадь ',i,'-го треугольника ',s:0:2)
                                     End
                                else b:=false;
   If b = false then Begin
                      writeln('Несуществующий ',i,'-й треугольник');
                      continue
                     End;
  End;
End.

If b = false then Begin
                      writeln('Несуществующий ',i,'-й треугольник');
                      continue
                     End;