Cho một số nguyên dương N, người ta viết các số 1,2,3,,n liền nhau sẽ tạo ra một số A có thể có rất nhiều chữ số. Ví dụ với n=12 thì số A được tạo ra sẽ là: A= 123456789101112. Bằng cách sử dụng ngôn ngữ Pascal, em hãy: - Nhập vào một số nguyên dương n (1n<100) - In ra màn hình số A - Nhập vào một số nguyên dương k, cho biết chữ số thứ k trong số A là chữ số nào? trong trường hợp không có số thứ k thì kết quả ghi 1.

Dưới đây là mã nguồn Pascal để thực hiện yêu cầu của bạn: ```pascal program NumberSequence; var n, k, i: integer; A: string; begin // Nhập vào số nguyên dương n write('Nhap vao so nguyen duong n (1 < n < 100): '); readln(n); // Tạo số A bằng cách ghép các số từ 1 đến n A := ''; for i := 1 to n do A := A + IntToStr(i); // In ra số A writeln('So A duoc tao ra la: ', A); // Nhập vào số nguyên dương k write('Nhap vao so nguyen duong k: '); readln(k); // Kiểm tra và in ra chữ số thứ k trong số A if (k <= Length(A)) then writeln('Chu so thu ', k, ' trong so A la: ', A[k]) else writeln('Khong co chu so thu ', k, ' trong so A'); end. ``` Lưu ý: Đoạn mã trên sử dụng hàm `IntToStr` để chuyển đổi số nguyên thành chuỗi và hàm `Length` để lấy độ dài của chuỗi.