Даны вещественные числа а,б,с,д,е.Найти площадь пяти угольника

function s(z1, z2, z3 : real) : real;
  var p : real;
  begin
    p := (z1 + z2 + z3) / 2;
    s := sqrt(p * (sqr(p - z1))*sqr(p - z2) * sqr(p - z3))
  end;

program pentagon;
 
function s(z1, z2, z3 : real) : real;
  var p : real;
  begin
    p := (z1 + z2 + z3) / 2;
    s := sqrt(p * (p - z1) * (p - z2) * (p - z3))
  end;
 
procedure input(var l: real; s: char);
  begin
    repeat
      write(s, ' = ');
      readln(l);
      if l <= 0 then writeln('Error: invalid length.')
    until l > 0
  end;
 
var fig: array ['a'..'g'] of real;
    leg: char;
 
begin
  for leg := 'a' to 'e'  do input(fig[leg], leg); //ввод сторон
  repeat //ввод диагоналей с проверкой по треугольнику cfg
    input(fig['f'], 'f');
    input(fig['g'], 'g');
    if fig['f'] + fig['c'] < fig['g'] then writeln('Error: f + c < g.');
    if fig['g'] + fig['c'] < fig['f'] then writeln('Error: g + c < f.')
  until (fig['f'] + fig['c'] >= fig['g']) or (fig['g'] + fig['c'] >= fig['f']);
  //считаем и выводим площадь
  writeln('Area = ', s(fig['a'], fig['b'], fig['g']) + s(fig['c'], fig['f'], fig['g'])+ s(fig['d'], fig['e'], fig['f']));
  readln
end.