var i,n:byte;
    len:byte;
    c:char;
    s,sPass:string;
begin
    randomize;
    s:='';
    for c:='0' to '9' do
    s:=s+c;
    for c:='A' to 'Z' do
    s:=s+c;    
    for c:='a' to 'z' do
    s:=s+c;
    sPass:='';

    write('Nhap chieu dai cua Password: ');
    readln(len);
    for i:=1 to len do
    begin
         n:=1+random(length(s));         
         sPass:=sPass+s[n];
    end;
    write(sPass);            
    readln;
end.