real A;
[Trap(false);
A:= Sqrt(-42.);
if GetErr then
    Text(0, "Square root of a negative value.
");
RlOut(0, A);
]