Паскаль. Написать программу для вычислений значений переменной Y по заданной формуле.

===== PascalABC.NET =====

begin

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

 var y := x > 3 ? Sqr(Sin(x)) :

   (x < 3) and (x <> -8) ? Cos(x) : x * x / 2;

 Println(x, y)

end.

На приложенном скрине программа изменена чтобы получить решение для всех трех значений х