{* Задача 390 *}

Unit ZADACH390;
Interface
Implementation
Begin
 writeln('С использованием условной структуры if … then … else вычислить и вывести на экран значение функции при различных значения аргумента. Значение аргумента задается с клавиатуры.

');
End.

Program zad2;

Uses zadach390.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x : real;
  y : real;
Begin
  write('x=');
  readln(x);
  If x0) And (x1 Then
    y := cos(x);
  writeln('y=', y : 6:2);
  readln; {* Приостановка программы. Ожидание Enter *}
End.