Найти ошибку(выводить неправильный ответ)

нужно вычислить y=tg(x^3)+|x^2-x^5|
program 2;
uses crt;
var x: integer;
y: real;
begin
write('x='); // ввод значения x
readln(x);
y: =(sin(exp(x)*3)/cos(exp(x)*3))+abs(exp(x)*2-exp(x)*5); //формула
writeln('y=', y);
end.

Объяснение:

Во, первых программу не следует называть просто цифрой, в некоторых компиляторах будет ошибка.

Во-вторых вместо Когда используешь функцию Exp следует предавать два значения. Или просто использовать Sqr(x)

program prog1;

uses crt;

var x:Integer;

y: Real;

begin

Write('x=');// Ввод значения x

ReadLn(x);

y:=(Tan(Sqr(x)*3))+Abs(Exp(ln(X) * 2)-(Exp(ln(X) * 5)));

WriteLn('y=', y);

end.