viết chương trình pascal giải bài 1 giúp mình với ạ

Đây là đề thi Tin học lớp 8 năm học 2022-2023. Bài 1 yêu cầu tính tích của chữ số hàng đơn vị và hàng chục của một số nguyên dương N. Bạn cần viết chương trình Pascal để giải bài này. Dưới đây là một ví dụ về chương trình Pascal để giải bài toán này: ```pascal program TichChuSo; var N, unitDigit, tensDigit, product: integer; begin // Đọc dữ liệu từ tệp PN.INP assign(input, 'PN.INP'); reset(input); readln(N); close(input); // Tính tích của chữ số hàng đơn vị và hàng chục unitDigit := N mod 10; tensDigit := (N div 10) mod 10; product := unitDigit * tensDigit; // Ghi kết quả vào tệp PN.OUT assign(output, 'PN.OUT'); rewrite(output); writeln(product); close(output); end. ``` Bạn chỉ cần sao chép mã chương trình trên vào trình biên dịch Pascal và chạy để giải bài toán. Kết quả sẽ được ghi vào tệp PN.OUT. Đối với bài 2, yêu cầu tính số tiền mà học sinh của trường THCS A&B được hỗ trợ dựa trên số chuột diệt được. Bạn có thể sử dụng công thức sau để tính số tiền: ```pascal program SoTienHoTro; var n, tienHoTro: int64; begin // Đọc dữ liệu từ tệp DC.INP assign(input, 'DC.INP'); reset(input); readln(n); close(input); // Tính số tiền hỗ trợ dựa trên số chuột diệt được if n < 3000 then tienHoTro := n * 1000 else tienHoTro := n * 2000; // Ghi kết quả vào tệp DC.OUT assign(output, 'DC.OUT'); rewrite(output); writeln(tienHoTro); close(output); end. ``` Tương tự như bài 1, bạn chỉ cần sao chép mã chương trình trên vào trình biên dịch Pascal và chạy để giải bài toán. Kết quả sẽ được ghi vào tệp DC.OUT.