Задача на if на turbo pascal 7.0

[Cruzel]

Понимаю что задача простая, но не догоню в чём ошибка.

  program Prog1;
  uses crt;
  var a,x,t,y: integer;

  begin
  writeln('x=');
 readln(x);
  if x>0 then begin
  y:=(ln(x)*ln(x)*ln(x)+sqr(x))/sqrt(x+t); (тут ошибка 26: Type mismatch)
 t:=3.5;
 a=:0.8;
else;
   begin
  y:=(1)/(x+t);
  end;
  writeln('y=',y);
  readkey;

  end.

Буду крайне благодарен

[Alex11223]

y должен быть вещественного типа (real, double и т.п.) либо это выражение должно округляться до целого (функция round).