fpcdocs/sysutex/ex73.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Program Example73;

{ This program demonstrates the IntToHex function }

Uses sysutils;

Var I : longint;

Begin
  For I:=0 to 31 do
      begin
      Writeln (IntToHex(1 shl I,8));
      Writeln (IntToHex(15 shl I,8))
      end;
End.