(В 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.