mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
16 lines
161 B
ObjectPascal
16 lines
161 B
ObjectPascal
program CurrencyTest;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
var
|
|
C: Currency;
|
|
R, D: Currency;
|
|
begin
|
|
C := 1234.56;
|
|
R := 4;
|
|
D := 2;
|
|
C := C * R / D;
|
|
Writeln(C);
|
|
end.
|
|
|