Составьте пожалуйста две программы на языке Pascal

PascalABC.NET 3.3

1.
var c,d,x,y: real;
begin
c:=10; d:=-9;
readln(x);
y:=tan(x)*log10(abs(d+x))/(sqrt(c*x)+d);
writeln('y = ',y:7:5);
end.

Пример:
2.2
y = 0.26539

2.
var c,d,x,y: real;
begin
c:=5; d:=6;
readln(x);
y:=sqrt(sqr(x*c)+d)/(power(c,0.16)-log10(abs(d*x)));
writeln('y = ',y:7:5);
end.

Пример:
-4
y = -232.92427