fpcdocs/sysutex/ex74.pp


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

Program Example74;

{ This program demonstrates the IntToStr function }

Uses sysutils;

Var I : longint;

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