Информатика.Паскаль.(10-11 класс)1 курс. Помогите пожалуйста написать программку с ветвлением

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

 var (x, d) := ReadReal2('Введите x и d:');

 var a := Sqrt(d);

 var y: real;

 if x gt;= a then y := Sin(x) + a

 else y := Sqrt(x) + a * a;

 y.Print

end.