Mysterious Range Check Error... Help plz!!!

I dry ran these codes for hours but I couldn't find a solution to the Range Check Error.

The compiler I am using is FreePascal 2.6.

Please help. Thank you in advance.

program abc;

uses math;

var x: integer;

begin

x:= trunc(power(10, 2/log10(2)));

readln
end.