{* Задача 344 *}

Unit ZADACH344;
Interface
Implementation
Begin
 writeln('

Программа для функции:

Y(x)=IxI, при x <=0;

Y(x)=-sin(2Пx)/2П, при 0< = x < =1;

Y(x)=1-x, при x>=1;

');
End.

Program two;

Uses zadach344.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  Pi = 3.14;
Var {* Необходимые переменные *}
  x : real;
  y : real;
  F : real;
Begin
  writeln('Введите х ');
  readln(x);
  If x = 1 Then
    f := 1 - x
  Else f := - (sin(2 * Pi * x)) / (2 * Pi);
    write('F(X)=', f : 2 : 2);
  readln
End.