помогите составить программу в паскале для вычисления функции y=sqrt(x*x*x-1)/(sqr(x)-3*x-4);

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;
var
x,y:real;
begin
write('X=');
ReadLn(x);
if (x<0) then
begin
write('X должен быть больше 0');
end
else
begin
y:=sqrt(x*x*x-1)/(sqr(x)-3*x-4);
writeLn('Y=',y);
end;
ReadLn;
end.
А лучше книжку/лекции почитать.