Помогите пожалуйста решить, даже заплачу тому кто решит. Только пожалуйста, решите…

program n1;
var x,y:real;
begin
writeln('введите x ');
readln(x);
y:=(abs(sqr(x)+3*x)-4)/(sqrt(sqr(x)-5));
writeln('ответ : ',y);
end.
 
program n2;
var s1,s2,V,a:real;
begin
writeln('введите длину ребра куба ');
readln(a);
s1:=a*a;
writeln('площадь грани = ',s1);
s2:=(a*a)*6;
writeln('площадь полной поверхности = ',s2);
V:=a*a*a;
writeln('объём куба = ',V);
end.