Программа с процедурой

var 
    s1,s2,s3,o:real;
    a,b,c,d,e,f,g:integer;
procedure hey (x,y,z:integer; s:real);
begin
    var p:real;
    p:=(x+y+z) / 2;
    s:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
begin
    o:=0;
    readln(a,b,c,d,e,f,g);
    hey(e,d,g,s1);
    writeln(s1);
    hey(g,f,c,s2);
    writeln(s2);
    hey(a,b,f,s3);
    writeln(s3);
    o:=s1+s2+s3;
    writeln(o);
end.

function trg(a,b,c:integer):boolean;
begin
trg:=(a<b+c)and(b<a+c)and(c<a+b);
end;
function hey (x,y,z:integer):real;
var p:real;
begin
p:=(x+y+z)/2;
hey:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var s:real;
    a,b,c,d,e,f,g:integer;
begin
repeat
writeln('Введите стороны a,b и диагональ f');
readln(a,b,f);
if not trg(a,b,f) then writeln('Эти отрезки не образуют треугольник');
until trg(a,b,f);
repeat
writeln('Введите сторону c и диагональ g');
readln(c,g);
if not trg(f,c,g) then writeln('Эти отрезки и диагональ f не образуют треугольник');
until trg(f,c,g);
repeat
writeln('Введите стороны d,e');
readln(d,e);
if not trg(g,d,e) then writeln('Эти отрезки и диагональ g не образуют треугольник');
until trg(g,d,e);
s:=hey(a,b,f)+hey(f,c,g)+hey(g,d,e);
writeln(s:0:2);
end.

function trg(a,b,c:integer):boolean;
begin
trg:=(a<b+c)and(b<a+c)and(c<a+b);
end;
procedure hey (x,y,z:integer;var s:real);
var p:real;
begin
p:=(x+y+z)/2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var s,s1,s2,s3:real;
    a,b,c,d,e,f,g:integer;
begin
repeat
writeln('Введите стороны a,b и диагональ f');
readln(a,b,f);
if not trg(a,b,f) then writeln('Эти отрезки не образуют треугольник');
until trg(a,b,f);
repeat
writeln('Введите сторону c и диагональ g');
readln(c,g);
if not trg(f,c,g) then writeln('Эти отрезки и диагональ f не образуют треугольник');
until trg(f,c,g);
repeat
writeln('Введите стороны d,e');
readln(d,e);
if not trg(g,d,e) then writeln('Эти отрезки и диагональ g не образуют треугольник');
until trg(g,d,e);
hey(a,b,f,s1);
hey(f,c,g,s2);
hey(g,d,e,s3);
s:=s1+s2+s3;
writeln(s:0:2);
end.