7.0




5.3. - 2


Program P_2;

Var

x, y: real;

n: integer;

Begin

writeln( x);

read (x);

if (x<1) or (x>=5) then

writeln(x ,

)

else

begin

n := trunc(x);

case n of

1: y := sin(x);

2: y := exp(-x);

3: y := ln(x);

4: y := sin (x)/cos(x);

end;

writeln(y=, y:6:2);

end;

End.