program mat_khau;

uses crt;

var s,st,doi:string;

      d,i:byte;

begin

       clrscr;

       write('Nhap mat khau dung: ');  readln(s);

       clrscr;

       d:=0; 

       while d<5 do

              begin

                     write('Nhap mat khau: ');   readln(st);

                     clrscr;

                     if s=st then

                            begin

                                   write('Mat khau dung');

                                   d:=5;

                            end

                     else

                     begin

                        d:=d+1;

                        if d=3 then

                          begin

                             write('Ban co muon tao lai mat khau khong(c=co)');

                             readln(doi);

                          end;

                        if doi='c' then 

                            begin

                                   d:=0;

                                   write('Nhap mat khau moi: ');  readln(s);

                                   clrscr;

                            end;

                        end;

              end;

       readln;

end.

program mkhau;

uses crt;

var pass: string; 

    d:byte;

procedure doi;

    var s3: string;

    begin

        clrscr;

        write('nhap pass moi: ');

        readln(s3);

        pass:=s3;

        d:=0;

    end;

procedure kt;

    var s, s2: string;

    begin

        repeat

            begin

                if d=3 then 

                    begin

                        writeln('doi mat khau?');

                        writeln('"yes" or "no"');

                        readln(s2);

                        if s2='yes' then doi;

                    end;

                if d=5 then exit;

                write('nhap mat khau: ');

                readln(s);

                inc(d);

            end

        until s=pass;

    end;

begin

    clrscr;

  write('tao pass: '); readln(pass);

  d:=0; kt;

  readln;

end.

{GM Kiet}