8 lines
118 B
Text
8 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);
|
|
]
|