mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 06:49:26 +01:00
14 lines
185 B
ObjectPascal
14 lines
185 B
ObjectPascal
PROGRAM TEST;
|
|
TYPE
|
|
ta = ARRAY[3..8] OF word;
|
|
VAR
|
|
aa : ^ta;
|
|
i : word;
|
|
BEGIN
|
|
NEW(aa);
|
|
FOR i:=LOW(aa^) TO HIGH(aa^) DO
|
|
aa^[i]:=0;
|
|
END.
|
|
|
|
|