mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 18:11:55 +01:00
11 lines
173 B
ObjectPascal
11 lines
173 B
ObjectPascal
Program Example76;
|
|
|
|
{ Program to demonstrate the FillWord function. }
|
|
|
|
Var W : Array[1..100] of Word;
|
|
|
|
begin
|
|
{ Quick initialization of array W }
|
|
FillWord(W,100,0);
|
|
end.
|