; массив целых 10 на 10 на 10
Structure LLL
  ll.i[10]
EndStructure
Structure MMM
  mm.LLL[10]
EndStructure
Structure NNN
  nn.MMM[10]
EndStructure  

Define M_3_10.NNN
Define *p_Int.Integer

M_3_10\nn[0]\mm[0]\ll[0] = 0
M_3_10\nn[9]\mm[9]\ll[9] = 999

Debug M_3_10\nn[0]\mm[0]\ll[0]
Debug M_3_10\nn[9]\mm[9]\ll[9]

; и вишека на торте
Debug SizeOf(M_3_10)/SizeOf(Integer)

*p_Int = @M_3_10
Debug *p_Int\i
*p_Int = *p_Int + SizeOf(M_3_10) - SizeOf(Integer)
Debug *p_Int\i

DataSection
pindex_:
Data.b 0,3,1,2,0,5,4,1,0,6,2,4,6,3,2,7,3,5,1,7,4,7,6,5
EndDataSection

Structure PIND
  pindex.b[24]
EndStructure
Define *p_pindex.PIND
*p_pindex = ?pindex_
Debug *p_pindex\pindex[ 0] ;0
Debug *p_pindex\pindex[23] ;5

EnableExplicit
Define ans.s
OpenConsole()
PrintN("Си")
ans = Input()
CloseConsole()

// 
// PureBasic 6.00 Alpha 4 - C Backend (Windows - x64) generated code
// 
// (c) 2021 Fantaisie Software
// 
// The header must remain intact for Re-Assembly
// 
// Console
// :System
// 
#pragma warning(disable: 4024)
// 
typedef long long quad;
typedef quad integer;
#define PB_INFINITY (1.0 / 0.0)
#define PB_NEG_INFINITY (-1.0 / 0.0)
typedef struct pb_array { void *a; } pb_array;
typedef struct pb_array2 { void *a; integer b[2]; } pb_array2;
typedef struct pb_array3 { void *a; integer b[3]; } pb_array3;
typedef struct pb_array4 { void *a; integer b[4]; } pb_array4;
typedef struct pb_array5 { void *a; integer b[5]; } pb_array5;
typedef struct pb_array6 { void *a; integer b[6]; } pb_array6;
typedef struct pb_array7 { void *a; integer b[7]; } pb_array7;
typedef struct pb_array8 { void *a; integer b[8]; } pb_array8;
typedef struct pb_array9 { void *a; integer b[9]; } pb_array9;
typedef struct pb_listitem { void *a; void *b; void *c;} pb_listitem;
typedef struct pb_list { void *a; pb_listitem *b; } pb_list;
typedef struct pb_mapitem { void *a; void *b; void *c;} pb_mapitem;
typedef struct pb_pbmap { pb_mapitem *a; } pb_pbmap;
typedef struct pb_map { pb_pbmap *a; } pb_map;
static integer s_s[]={0, -1};
#define M_SYSFUNCTION(a) a __stdcall
#define M_PBFUNCTION(a) a __stdcall
#define M_CDECL
typedef void TCHAR;
static integer SYS_BankerRound(double i) { return i >= 0 ? i+0.5 : i-0.5; }
integer __stdcall ExitProcess(integer);
integer __stdcall HeapCreate(integer,integer,integer);
integer __stdcall HeapDestroy(integer);
integer __stdcall GetModuleHandleW(integer);
// 
integer PB_CloseConsole();
typedef void* (*pbv_Input)(int);
extern pbv_Input PB_Input;
integer PB_OpenConsole();
typedef integer (*pbv_PrintN)(void*);
extern pbv_PrintN PB_PrintN;
static char *tls;
int PB_ExitCode=0;
integer PB_MemoryBase=0;
integer PB_Instance=0;
// 
// 
// 
// 
void SYS_Quit();
M_SYSFUNCTION(void) SYS_AllocateString4(TCHAR **String, int PreviousPosition);
extern void *PB_StringBase;
extern integer PB_StringBasePosition;
M_SYSFUNCTION(void) SYS_InitString(void);
M_SYSFUNCTION(void) SYS_FreeStrings(void);
// 
M_SYSFUNCTION(void) SYS_PushStringBasePosition(void);
M_SYSFUNCTION(integer) SYS_PopStringBasePosition(void);
M_SYSFUNCTION(integer) SYS_PopStringBasePositionUpdate(void);
M_SYSFUNCTION(void *) SYS_PopStringBasePositionValue(void);
M_SYSFUNCTION(void *) SYS_PopStringBasePositionValueNoUpdate(void);
M_SYSFUNCTION(integer) SYS_GetStringBasePosition(void);
M_SYSFUNCTION(void) SYS_SetStringBasePosition(integer Position);
M_SYSFUNCTION(integer) SYS_StringBasePositionNoPop(void);
M_SYSFUNCTION(char *) SYS_GetStringBase(void);
int PB_DEBUGGER_LineNumber=-1;
int PB_DEBUGGER_IncludedFiles=0;
char *PB_DEBUGGER_FileName=0;
// 
static unsigned short _S1[]={1057,1080,0};
void *PB_NullString=0;

integer ms_s[]={0,-1};
void* v_ans=0;
// 
// 
// 
char PB_OpenGLSubsystem=0;
int PB_Compiler_Unicode=1;
int PB_Compiler_Thread=0;
int PB_Compiler_Purifier=0;
int PB_Compiler_Debugger=0;
int PB_Compiler_DPIAware=0;
int PB_Compiler_XPSkins=0;
int PB_ExecutableType=1;
// 
void PB_EndFunctions() {
}
// 
int pb_main(int argc, char* argv[]) {
PB_Instance = GetModuleHandleW(0);
PB_MemoryBase = HeapCreate(0,4096,0);
SYS_InitString();
// EnableExplicit
// Define ans.s;
// OpenConsole()
integer rr0=PB_OpenConsole();
// PrintN("")
integer rr1=PB_PrintN(_S1);
// ans = Input()
SYS_PushStringBasePosition();
SYS_PushStringBasePosition();
PB_Input(SYS_PopStringBasePosition());
SYS_AllocateString4(&v_ans,SYS_PopStringBasePosition());
// CloseConsole()
integer rr2=PB_CloseConsole();
SYS_Quit();
}

void SYS_Quit() {
PB_EndFunctions();
HeapDestroy(PB_MemoryBase);
ExitProcess(PB_ExitCode);
}