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

У вас, по-моему ошибка. (power(c,0.16), там не 0.16 а 0.1*d

Может быть. Плохо видно.

PascalABC.NET 3.31.var c,d,x,y: real;beginc:=10; d:=-9;readln(x);y:=tan(x)*log10(abs(d+x))/(sqrt(c*x)+d);writeln('y = ',y:7:5);end.Пример:2.2y = 0.265392.var c,d,x,y: real;beginc:=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.Пример:-4y = -232.92427

// PascalABC.NET 3.3// Cборка 1590 от 03.12.20171)begin  var (c,d,x):=ReadReal3('Введите c,d,x-> ');  Writeln( 'y= ',(sin(x)/cos(x))*(ln(abs(d+x))/(sqrt(c*x)+d)):0:3);end.2)begin  var (c,d,x):=ReadReal3('Введите c,d,x-> ');  Writeln( 'y= ',sqrt(sqr(x*c)+d)/(power(c,0.1*d)-ln(abs(d*x))):0:3);end.