ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program brutik;
var
  n:integer; a:array[1..100000] of char; k:char; f:text;
  
procedure brut(t:integer);
  var i:char; j:integer;
  begin
    if t=n then
      begin
        for j:=1 to n do
          write (f, a[j]);
        writeln (f);
      end
    else
      for i:='a' to k do
        begin
          a[t+1]:=i;
          brut (t+1);
        end;
  end;
begin
  assign (f,'pass.txt');
  rewrite (f);
  k:='z';
  n:=3;
  brut (0);
  close (f);
end.