var i,j,k:integer;
var f:text;
var a:array[0..35] of string =('a', 'b', 'c', 'd', 'e', 'f', 'g',
'h', 'i', 'j', 'k', 'l', 'm', 'n',
'o', 'p', 'q', 'r', 's',
't', 'u','v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4',
'5', '6', '7', '8', '9');
begin
assign (f, 'text.txt');
rewrite(f);
for i:=0 to 35 do
for j:=0 to 35 do
for k:=0 to 35 do
writeln(f ,(a[i]+a[j]+a[k]));
close(f);
readln;
end.
Нужно создать text.txt в директории откуда будет запускаться программа.