BEGIN
     b:=10;

     for a:=1 to b do
         begin
              c:=Random(100);
              tab[a]:=c;
              WriteLn(tab[a]);
         end;