===== PascalABC.NET =====
begin
foreach var x in Seq(0.8, 11.36, -5.54) do
if x < 0 then
Println(5 * x * x - 1)
else
Println(Sqr(1 / Tan(x)))
end.
