var
e:array [1..73] of char:=('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','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');
k:array [1..16] of integer;

i:integer;
pswd:string;
f:text;

begin
randomize;

for i:=1 to 16 do begin
k[i]:=random(72)+1;
insert(e[k[i]],pswd,i);
end;

assign(f,'password.txt');
rewrite(f);
write(f,pswd);
close(f);
exec('password.txt');

end.