mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
12 lines
207 B
ObjectPascal
12 lines
207 B
ObjectPascal
{ %opt=-vh -Seh }
|
|
program CurrencyTest;
|
|
{$mode objfpc}{$H+}
|
|
var
|
|
C: Currency;
|
|
D: Integer;
|
|
begin
|
|
C := 1234.56;
|
|
D := 2;
|
|
C := C / D; // Hint: Use DIV instead to get an integer result
|
|
Writeln(C);
|
|
end. |