Найти все углы треугольника со сторонами а, b, c. Предусмотреть в программе перевод радианной меры угла а градусы, минуты и секунды. Напишите на паскаль

program ABC;

var

A, B, C, x, y: real;

begin

Write ('Enter A=');

Readln (A);

Write ('Enter B=');

Readln (B);

Write ('Enter C=');

Readln (C);

A: = (sqr (B) + sqr (C) - sqr (A)) / 2*B*C;

x:=cos (A);

B: = (sqr (A) + sqr (C) - sqr (B)) / 2*A*C;

y:=cos (B);

C:=180-x-y;

Writeln ('ugol A=', x);

Writeln ('ugol B=', y);

Writeln ('ugol C=', C);

readln;

end.