program project1;
        uses SysUtils;
         var tab:ARRAY[1..10] of Integer;
             a,b,c,liczba:Integer;
             d:String;
             warunek:BOOLEAN;
BEGIN
     b:=10;
     warunek:=true;

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