PROGRAM Math;
uses crt;
var  a, d,c, y,  :real;
x:integer;
clrscr; 

y:=(a+d+(exp(ln(c)*5)))/sqrt(exp(ln(c))*3-4) ;

writeln(‘y=’,  y);

END.

uses crt;
var y,a,d,c,x: real;
begin
     write('a='); readln(a);
     write('d='); readln(c);
     write('c='); readln(c);
     write('x='); readln(x);
     y:=(a+d+power(c,5))/sqrt(power(x,3)-4);
     writeln('y=',y:7:4);
end.
---
Скрин работы во вложении