mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 03:47:59 +02:00
13 lines
178 B
ObjectPascal
13 lines
178 B
ObjectPascal
var
|
|
t,t1:int64;
|
|
tsclo,tschi:cardinal;
|
|
f:int64;
|
|
begin
|
|
tschi:=1;
|
|
tsclo:=0;
|
|
f:=1;
|
|
t1:=2;
|
|
t:=1;
|
|
writeln(((Int64(tscHi) shl 32 + tscLo) / ((T1-T) / F)));
|
|
end.
|