program number7;
uses crt;
var x,y : real;
begin
clrscr;
writeln(' привет это программа арифметичеких выражений ');
writeln(' введите x ');
readln(x);
y:=sqrt((exp(3*ln(x))-5)/(sqr(x)+2));
writeln(' значения выражения= y');
end.что с ней не так?не вычисляет y