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

Только плакать не надо, не стоит оно того. Могу написать программки, но блок-схемы живописать не хочу. Как-нибудь сам.

Только программки тебя выручат?

конечно спасут)

ну тогда ожидай, на данный момент нарисую

заранее спасибо)

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.

---------------- 1-ая: ----------------
program p1 ;
var x, y: real ;

begin
  write ('vvedite x=' ) ;
  readln ( x ) ;
  
  y := ( абс ( x*x + 3 * x ) - 4 ) / sqrt ( x*x - 5 ) ;
  writeln ( 'y=' , y ) ;
end.

------------- вторая: -------------- 

program p2 ;

var x , y : real ;
begin
  write ( 'vvedite rebro kuba x=' ) ;
  readln ( x ) ;
 
  y := x * x ;
  writeln ( 'S grani=' , y ) ;
  y := 6 * y ;
  writeln ('S polnoi poverhnosti=' , y ) ;
  y := x * x * x ;
  writeln ('Obiem=' , y ) ;
end.

------------ конец -------
У меня нет под рукою компилятора чтобы проверить. Пробуй странслировать и испытать. Если что не получится, то напиши мне.