Программа на нахождение X - PascalABC.NET

Формулировка задачи:

Помогите пожалуйста написать программу. Для X=234, X=1.69, X=6.83

Решение задачи: «Программа на нахождение X»

Листинг программы

Begin
  Readln(x);
  If (x <= 0) or ((x > 5) and (x < 10)) then y := Power(E, 2 * x) else
    If x > 10 then y := Sqrt(x) + 3 else y := Power(x, 3);
  Writeln(y);
End.

Объяснение кода листинга программы

В данном коде выполняются следующие действия:

Ввод значения переменной x с помощью функции Readln().
При помощи условного оператора If проверяется значение переменной x.
Если x меньше или равно нулю, или больше 5 и меньше 10, то переменной y присваивается значение Power(E, 2 * x).
Если x больше 10, то переменной y присваивается значение Sqrt(x) + 3.
Во всех остальных случаях переменной y присваивается значение Power(x, 3).
С помощью функции Writeln() выводится значение переменной y. Таким образом, в результате выполнения программы будет выведено значение переменной y, которое будет равно либо Power(E, 2 * x), либо Sqrt(x) + 3, либо Power(x, 3) в зависимости от значения переменной x.