Код
program ultraks;
uses crt;
var c,b,k,a,d,z,M:real;
begin
clrscr;
writeln('Vvedite znacheniya c,b,k,a,d'');
readln(c,b,k,a,d);
z:=(ln*SQRT(4*a*exp(4*ln(sin(d)/cos(d)))))-c/9*exp(3*ln(sin(k)/(cos(k)) ));
M:=(7*exp(5*ln(sin(c/4)))+2*sqr(b)*exp(1/3*sqrt(exp(3*ln(cos(k)))))/(z);
writeln('M= ', M)
readln;
end
попробуй, была ошибка в строчке z