{* Задача 361 *}

Unit ZADACH361;
Interface
Implementation
Begin
 writeln('Определение функции:


');
End.

Program zadach361;

Uses zadach361.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  y : real;
Begin
  writeln ('Введите координату x');
  readln (x);
  If x = 1 Then
    y := 0
  Else y := cos(x * pi / 2);
    writeln ('y(x)=', y : 6:2);
End.