mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
29 lines
464 B
ObjectPascal
29 lines
464 B
ObjectPascal
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses math, sysutils
|
|
{ you can add units after this };
|
|
|
|
begin
|
|
try
|
|
writeln(power(0, -4));
|
|
except
|
|
on e: Exception do ClearExceptions(false);
|
|
end;
|
|
try
|
|
writeln(power(0, -3));
|
|
except
|
|
on e: Exception do ClearExceptions(false);
|
|
end;
|
|
try
|
|
writeln(power(0, -4));
|
|
except
|
|
on e: Exception do ClearExceptions(false);
|
|
end;
|
|
|
|
writeln('caught');
|
|
writeln(power(16, 0.5));
|
|
writeln('done');
|
|
end.
|