ПОМОГИТЕ НАПИСАТЬ ПРОГУ В ПАСКАЛЕ. БЕЗ ELSE И NOT

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var x,a,betta,y:real;
  Write(Введите через пробел x, бета, a: );
  Read(x,betta,a);
  y:=((xgt;1) and (xlt;3))sqrt(1+x):x in [4.1,5.2]x*x-sin(3*betta):
    sqr(cos(x))/sqrt(abs(x+a));
  Writeln(y=,y)
end.

Примеры для проверки всех трех формул
Введите через пробел x, бета, a: 2.1 0.17 3
y=1.7606816861659

Введите через пробел x, бета, a: 5.2 -9.6 5.18
y=26.5382106989794

Введите через пробел x, бета, a: -2 0 1.3
y=0.206987526684641

Var
    x, a, betta, y: real;

begin
    Write(Введите через пробел x, бета, a: );
    Read(x, betta, a);
    
    y := sqr(cos(x)) / sqrt(abs(x + a));
    if (x gt; 1) and (x lt; 3) then y := sqrt(1 + x);
    if (x = 4.1) or (x = 5.2) then y := x * x - sin(3 * betta);
    
    Writeln(y=, y)
end.

Программа не предусматривает возможность деления на ноль и прочих неожиданностей