mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-10 08:43:08 +02:00
15 lines
236 B
ObjectPascal
15 lines
236 B
ObjectPascal
Program Example31;
|
|
|
|
{ Program to demonstrate the Hi function. }
|
|
|
|
var
|
|
L : Longint;
|
|
W : Word;
|
|
|
|
begin
|
|
L:=1 Shl 16; { = $10000 }
|
|
W:=1 Shl 8; { = $100 }
|
|
Writeln (Hi(L)); { Prints 1 }
|
|
Writeln (Hi(W)); { Prints 1 }
|
|
end.
|