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

я откомпилировал, работает отлично : )

program n1;var x,y:real;beginwriteln('введите 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;beginwriteln('введите длину ребра куба ');readln(a);s1:=a*a;writeln('площадь грани = ',s1);s2:=(a*a)*6;writeln('площадь полной поверхности = ',s2);V:=a*a*a;writeln('объём куба = ',V);end.