Программа паскаль помогите пожалуйста за ранее буду благодарен

Поправил решение*

Запусти от x = 3.5

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar x:= ReadReal('x =');if (x > 3) and (x < 4) then Writeln('y = ', 6*x*x - sqrt(x*x));if (x < 3) and (x <> 0) then Writeln('y = ',sqrt(8*x*x-4*x)+exp(x));if (x = 0)then Writeln('y = ',0.5*x*x - 4*x );if (x >= 4) then Writeln('No Solution');end.

var x: integer;beginreadln (x);if (x> 3) or (x <4) then write ((6 * x * x) -x);if (x <3) or (x> 0) then write (sqrt (8 * x * x-4 * x) + exp (x));if (x = 0) then write (x * x / 2-4x);end.