Решите пожалуйста У нас контруха

1) program new;uses crt;var y,x,b,a:real;  begin   writeln('enter x,b,a');    readln(x,b,a);  y:=(ln*(((10*x)*(3*(ln(x)))-3) / 4-b) -sin((2*x)/(2*a))-abs(x+5)); write('Answer ', y);end. 2)program new;uses crt;var x,a,y:real;  begin   writeln('enter x,a');    readln(x,a);  y:=(cos(sqr(x)/5*a)+sqrt(a*(sqr(x)-4/x))-exp); write('answer', y);end.