Тема: Поняття РѕСЃРЅРѕРІРЅРѕРіРѕ та допоміжного алгоритму. Алгоритми-процедури Р№ алгоритми-функції.

Program pl_pr;
Var a,b,c,d,e,f,p,str,s: real;
    procedure pt(x,y,z:real);
    Begin
    p:=(x+y+z)/2;
    Str:=Sqrt(p*(p-x)*(p-y)*(p-z));
    End;
Begin
Readln(a,b,c,d,e,f);
s:=0;
pt(a,c,d);
s:=s+str;
pt(b,c,f);
s:=s+str;
pt(a,b,e);
s:=s+str;
pt(d,e,f);
s:=s+str;
Writeln(s);
End.Program pt;
Var a,b,c,p,s:real;
Begin
Readln(a,b,c);
p:=(a+b+c)/2;
S:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(s);
End.

Program pl_pr_f;
Var a,b,c,d,e,f,p,s: real;
    function pt(x,y,z:real):real;
    Begin
    p:=(x+y+z)/2;
    pt:=Sqrt(p*(p-x)*(p-y)*(p-z));
    End;
Begin
Readln(a,b,c,d,e,f);
s:=pt(a,c,d)+pt(b,c,f)+pt(a,b,e)+pt(d,e,f);
Writeln(s);
End.