{* Теорема косинусов *}

Unit BEGIN_17;
Interface
Implementation
Begin
 writeln('Даны стороны треугольника: a, b, c. Вычислить косинусы углов по теореме косинусов: sqr©=sqr(a)+sqr(b)-2ab*cos(alfa)');
End.

Program begin_17;

Uses begin_17.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a    : real;
  b    : real;
  c    : real;
  cosa : real;
  cosb : real;
  cosc : real;
Begin
  clrscr; {* Очистка экрана *}
  write('введите сторону a=');
  readln(a);
  write('введите сторону b=');
  readln(b);
  write('введите сторону c=');
  readln(c);
  cosc := (sqr(c) - sqr(a) - sqr(b)) / ( - 2 * a * b);
  cosa := (sqr(a) - sqr(c) - sqr(b)) / ( - 2 * c * b);
  cosb := (sqr(b) - sqr(c) - sqr(a)) / ( - 2 * c * a);
  writeln('cosa=', cosa : 4 : 4);
  writeln('cosb=', cosb : 4 : 4);
  write('cosc=', cosc : 4 : 4);
  readln; {* Ждем подтверждения пользователя *}
End.