Синфой , решить в среде паскаль

PascalABC.NET

begin

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

 var y: real;

 if x = 1 then

   y := Ln(Abs(Sin(x)))

 else if x = 2 then

   y := Exp(x) + Sqrt(x)

 else

   y := 0.5 + Abs(x);

 Println(y)

end.

Объяснение:

Формула для Х = 2 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.