uses
  Math,
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes;
type
tab = array of integer;

procedure wypelnij(n:integer ; var a:tab);
var
  i:integer;
begin
  setlength(a,n);
  Randomize;
    for i:=0 to n-1 do
        begin
          a[i]:=RandomRange(-100,100);
        end;
end;
var
  j:integer;
  b:array of integer;
begin
  wypelnij(100,b);
    for j:=0 to 99 do
        begin
          writeln(j,'. ',b[j]);
        end;
  readln;
end.