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

[Marco van de Voort]

> > 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.

It shows the current weak state of the dollar.  Look what 3 and an half euro
is worth nowadays:

  writeln(3E5:10:3);

:-)