Stuff

{$R-}
Type
  MyType=Boolean;
Type
  MyArray=Array[1..1] of MyType;
  MyArrayPtr=^MyArray;
Var
  DynamicArray: MyArrayPtr;
  Count,
  I,Size: Word;
Begin
  ReadLn(Count);
  Size:=Count*SizeOf(MyType);
  GetMem(DynamicArray,Size);
  For I:=1 to Count do DynamicArray^[I]:=(I=i);

  For I:=1 to Count do
    Write(DynamicArray^[I]:4);


  FreeMem(DynamicArray,Size)
End.