Informatika (2 семестр) / 1 аттестация / mediaFunction

program m;
 var a,b,c,a1,b1,c1,a2,b2,c2:real;
 Function H1(a,b,c:real):real;
  begin
   H1:=(1/2)*(sqrt((2*b*b)+(2*c*c)-a));
   end;
 Function H2(a,b,c:real):real;
  begin
   H2:=(1/2)*(sqrt((2*a*a)+(2*c*c)-b));
   end;
 Function H3(a,b,c:real):real;
  begin
   H3:=(1/2)*(sqrt((2*a*a)+(2*b*b)-c));
   end;
    begin
     writeln('ввод 3х чисел');
     readln(a);
     readln(b);
     readln(c);
a1:=H1(a,b,c);
  writeln(a1);
b1:=H2(a,b,c);
  writeln(b1);
c1:=H3(a,b,c);
  writeln(c1);
a2:=H1(a1,b1,c1);
  writeln(a2);
b2:=H2(a1,b1,c1);
  writeln(b2);
c2:=H3(a1,b1,c1);
  writeln(c2);
  end.