{* Задача 537 *}

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

Program paszadach537;
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  a                : real;
  b                : real;
  c                : real;
  cosa             : real;
  cosb             : real;
  cosc             : real;
Procedure cos(a1 : real;
b1               : real;
c1               : real;
Var {* Объявление переменных *}
  cosa1 : real);
Begin
  cosa1 := (c1 * c1 + b1 * b1 - a1 * a1) / (2 * c1 * b1);
End;
Begin
  clrscr; {* Очистка экрана *}
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('c=');
  readln(c);
  cos(a, b, c, cosa);
  cos(b, c, a, cosb);
  cos(c, a, b, cosc);
  writeln('cosa=', cosa);
  writeln('cosb=', cosb);
  write('cosc=', cosc);
  readln; {* Ждем подтверждения пользователя *}
End.