viết chương trình nhập 1 xâu chưa mã bưu phẩm(2 kí tự đầu là viết tắt tên thành phố ,vd:DN là đà nẵng, HN: hà nội…), 10 kí tự sau là số điện thoại của khách hàng. theo quy định 2 kí tự đầu phải viết hoa. tuy nhiên do lỗi đánh máy nên các kí tự này bị viết chữ thường, em hãy lập trình để sửa lỗi trên.
EM CÁC BẠN GIÚP MÌNH VỚI Ạ. XIN CẢM ƠN.
Program HuynhDucNhatDeThuongQuaDiA;
Uses crt;
Var HDNCute: String;
i: longint;
Begin
Clrscr;
Write(‘Nhap xau: ‘); Readln(HDNCute);
HDNCute[1]:=Upcase(HDNCute[1]);
HDNCute[2]:=Upcase(HDNCute[2]);
Write(‘Xau = ‘,HDNCute);
Readln
End.