mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:07:54 +02:00
14 lines
94 B
ObjectPascal
14 lines
94 B
ObjectPascal
uses
|
|
Math;
|
|
|
|
var
|
|
d: Double;
|
|
e: Extended;
|
|
|
|
begin
|
|
d := 0;
|
|
e := 0;
|
|
|
|
d := Min(d, e);
|
|
end.
|