mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:28:03 +02:00
12 lines
183 B
ObjectPascal
12 lines
183 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.
|