Функции в паскале

[swedalena]

Вычислить у=(x(exp(1/3ln(t))cosx(t*t)-z(t)sinz(t*t)) , где x(t)=t*t+5 , z(t)=(t*t-1)/5.Составить ф-ции пользывателя для вычислений x(t) , z(t). Помогите пожалуйста.

[swedalena]

Помогите пожалуйста , а то ничего не получается=(

[Stranger333]

надеюсь без ошибок

function x(t1:real):real;
begin
  x:=t1*t1+5;
end;

function z(t2:real):real;
begin
  z:=(t2*t2-1)/5;
end;

var y,t:real;
begin
  write('t=');
  readln(t);
  y:=x(exp(1/3*ln(t)))*cos(x(t*t))-z(t)*sin(z(t*t));
  writeln('y=',y:5:5);
  readln;
end.

[swedalena]

Спасибо за помощь=)