{* Задача 64 *}

Unit ZADACH64;
Interface
Implementation
Begin
 writeln('Вычислить функцию function : y=arccosx-arccos2x+arccos3x ');
End.

Program pas12689;

Uses zadach64.pas; {* Эту строку можно удалить *}
Function funcy(x : extended) : extended;
Begin
  funcy := arccos(x) - arccos(2.0 * x) + arccos(3.0 * x);
End;
Var {* В работе нам потребуются переменные: *}
  x : extended;
Begin
  writeln; {* Пустая строка *}
  write('give x = ');
  readln(x);
  writeln(#10#13'done!'#7);
  writeln('------------------------');
  writeln('x          = ', x);
  writeln('func(x) = ', funcy(x));
End.