{* Задача 358 *}

Unit ZADACH358;
Interface
Implementation
Begin
 writeln('Программа реализующая функцию:

');
End.

Program two;

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