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.