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

нужно вычислить 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.