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

Question

Просто Толик · Accepted Answer

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. 
А лучше книжку/лекции почитать.