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