mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-21 13:11:48 +01:00
12 lines
114 B
ObjectPascal
12 lines
114 B
ObjectPascal
program fpu;
|
|
|
|
{$mode delphi}
|
|
|
|
uses SysUtils,Math;
|
|
|
|
var
|
|
f1,f2 : single;
|
|
caught: boolean;
|
|
|
|
{$include tmask.inc}
|