fpc/utils/pas2js/samples/arraydemo.pp

var
  a : Array[1..100] of integer;
  i,j : Integer;
   
begin
  for I:=1 to 100 do
    A[I]:=I;
  for j:=1 to 100 do
    writeln(A[j]);
end.