[fpc-pascal] Why this evaluates on "if" wrong ?

[L]

> Regarding the $3000 computer: An extended has 20 digits of precision. 
> Make sure you round your output to 10 digits and you need to a very weird 
> calcation until you can see a rounding difference :) 

I was talking about $3000 pascal dollars:

BEGIN
  writeln($3000);
END.

Output:
12288

The Pascal dollar is worth a lot more than you think.