Помогите !!! Безотлагательно надобно , прошу кто знает превосходно информатику )))пожалуйста

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

52

begin

 var x := ReadReal('x =');

 var F: real;

 if x lt;= 3 then F := x * x - 3 * x + 9

 else F := 1 / (x * x * x + 6);

 Print(F)

end.

54

begin

 var x := ReadReal('x =');

 var F: real;

 if x lt;= -3 then F := 9

 else F := 1 / (x * x + 1);

 Print(F)

end.