паскаль. уравнение.

[Jodu]

задачка в документе...Написать программу вычисления S по формулам.
Заранее спасибо.

[Diesel]

If x>0 then
S=x*x*x*sqr(tg(sqr(x+5)))+(0.11*x)/(5*sqrt(abs(x-3)))


If X<>0 then
S=(3*x*x-cos(x))/(???*x - 1)+ ln 7

[Jodu]

Исправьте...При вводе некоторых х (например 66, 55 и других
возникает ошибка 709. Заранее спасибо

Program zadanie;
const e=2.7;
Var
s:Real;
x:integer;
Begin ;
Writeln ('vvedite x');
Readln(x);
If (x>0) then begin
S:=x*x*x*exp(2*(sin(exp(2*(x+5))))/(cos(exp(2*(x+5)))))+(0.11*x)/(5*sqr(abs(x-3))) ;
writeln('s=',s:8:3, 'peshenue 1 yraBneniya');
End Else
Writeln('net reweniya dlya 1 uravniniya');
If (x<>0) then begin
s:=(3*x*x-cos(x))/(e*e*e*x-1)+ ln(7);
writeln('s=',s:8:2,'pesheHue 2 uravnenuia');
End Else
Writeln('net reweniya dlya 2 uravneniya');
Readln;
End.

[Alex21]

1. uses Math -> функция TAN

2. if X<>0 then
S:=(3*sqr(x)-cos(x)) / (exp(3)*x-1) + ln(7);