Uravnenie kakoe-to

program Uravnenie;
var
    i: Integer;
    X, Y, degree: Double;//тип Double для работы с большими числами
begin
    WriteLn('Введите X: ');
    ReadLn(X);
    degree := X;
    for i:=1 to 93 do//цикл для возведения в степень
    begin
        degree := degree*X;
    end;
    Y := (degree - Sin(X)*Sin(X))/(X*X*X + Cos(X)*Cos(X)*Cos(X) - 7);
    WriteLn('Ответ: ', Y);
end.
*************************************************************************
program Uravnenie;
var
    i: Integer;
    X, Y, degree: Double;//тип Double для работы с большими числами
begin
    WriteLn('Введите X: ');
    ReadLn(X);
    Y := (exp(94*LN(X)) - Sin(X)*Sin(X))/(exp(3*LN(X)) + exp(3*LN(Cos(X))) - 7);//exp(94*LN(X)) возведение X в степень 94
    WriteLn('Ответ: ', Y);
end.