uses crt;
var MatKhau_KH, TaiKhoanNhan_KH :string;
    i,Chon,                     :integer;
    SoTienChuyen, SoDu          :longint;
const MatKhau='1234';
      SoDuChinh=1000000;
      TaiKhoanNhan='NguyenNhatDanThuy';


begin
  clrscr;
  write('Nhap mat khau: ');
  for i:=1 to 3 do
    begin
      readln(MatKhau_KH);
      if MatKhau_KH <> MatKhau then
        begin
          if i=3 then
            begin
              writeln('Dang nhap that bai. Ban da het lan thu');
              halt;
              readln
            end
          else write('Sai mat khau. Ban con ', 3-i, ' lan thu: ')
        end
      else break
    end;

  writeln;
  writeln('Dang nhap thanh cong');
  writeln;
  writeln('Dich vu hien co: ');
  writeln('1. Chuyen tien');
  writeln('2. Tra cuu so ung dung');
  write('Vui long chon dich vu: ');
  readln(Chon);

  while (Chon<>1) and (Chon<>2) do
    begin
      write('Dich vu khong hien co. Vui long chon lai dich vu: ');
      readln(Chon)
    end;
  writeln;

  SoDu:=SoDuChinh;
  if Chon=1 then
    begin
      write('Nhap tai khoan nhan tien: ');
      readln(TaiKhoanNhan_KH);
      for i:= 1 to 5 do
        begin
          if TaiKhoanNhan_KH = TaiKhoanNhan then break
          else write('Tai khoan khong ton tai. Vui long nhap lai: ');
          readln(TaiKhoanNhan_KH);
        end;
      if i=5 then writeln('Ban da nhap sai qua so lan quy dinh')
      else
        begin
          write('So tien ban muon chuyen: ');
          readln(SoTienChuyen);
          while SoTienChuyen>SoDu do
            begin
              write('So tien chuyen khong hop le. Vui long nhap lai: ');
              readln(SoTienChuyen)
            end;
          SoDu:=SoDu-SoTienChuyen;
          writeln('Ban da chuyen: ',SoTienChuyen, ' dong');
          writeln('So du con lai: ', SoDu, ' dong');
        end;
    end;

  if Chon=2 then writeln('So du kha dung: ', SoDu, ' dong');
  readln;
end.