(В Pascal) Дано целое положительное число x. Вычислить:

var x:integer;
begin
    readln(x);
    if (x>=10) and (x<=16) then
        write(1 / x + sin(x) / cos(x) )
    else if (x >= 1) and (x <= 5) then
        write(exp(x) - sqrt(x * x + x - 1) )
    else write(sqrt(exp(x) / (x + 1) ) );
end.