mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:29:57 +02:00
12 lines
142 B
ObjectPascal
12 lines
142 B
ObjectPascal
{$mode objfpc}{$r+}{$q+}
|
|
var
|
|
Prec:Cardinal;
|
|
Bits:Word;
|
|
begin
|
|
Bits := 512;
|
|
Prec := 8;
|
|
Bits := Bits shr (16-Prec);
|
|
WriteLn(bits);
|
|
end.
|
|
|