[inherit('sys$library:pascal$mth_routines')]

program pw_gen(input,output);

const
   s1 = 'BCDFGHJKLMNPQRSTVWXZ';
   s2 = 'AEIOUY';

var
   seed : unsigned;

procedure gen_one(pw_len:integer);

var
   j : integer;
   pw : varying [32] of char;

begin
   pw:='';
   for j:=1 to pw_len do begin
      if(odd(j)) then begin
         pw:=pw+s1[trunc(mth$random(seed)*length(s1))+1];
      end else begin
         pw:=pw+s2[trunc(mth$random(seed)*length(s2))+1];
      end;
   end;
   writeln(pw);
end;

procedure gen_many(n_pw,pw_len:integer);

var
   i : integer;

begin
   seed:=clock;
   for i:=1 to n_pw do gen_one(pw_len);
end;

begin
   gen_many(100,7);
end.
