Составить программу, которая определяет углы треугольника со сторонами а, b, с по известным формулам: — Pascal(Паскаль)

cos (alfa)=(sqr(b)+sqr(c)-sqr(a))/2bc
cos B=(sqr(a)+sqr(c)-sqr(b))/2ac
cos(gamma)=(sqr(a)+sqr(b)-sqr(c))/2ab

var a,b,c:real;
 
function cosinus(a,b,c:real):real;
begin
 cosinus:=(sqr(b)+sqr(c)-sqr(a))/2*b*c;
end;
 
begin
 readln(a,b,c);
 writeln(cosinus(a,b,c));
 writeln(cosinus(b,c,a));
 writeln(cosinus(c,a,b));
end.