(7Đ).A) CHO CHƠNG TRÌNH CON

Câu 2. (7đ).a) Cho chơng trình con: Dòng1Procedure NHAP;Var A: array[1...100] of word;2i, n: byte;3Begin45Writeln(‘Nhap so phan tu’); Readln(n);While n>100 then Begin67Writeln(‘Nhap lai’);8Readln(n);9 end;10For y:=1 to n do Begin11Writeln(‘Nhap pt thu’, i);12Readln(A[i]);1314End;- Chơng trình con trên có những lỗi ở dòng nào ? Sửa lỗi (nếu có).- Chơng trình con trên làm những công việc gì ?.b) Hoàn thành chơng trình con tính tổng số ớc nguyên dơng của một số nguyên k sau đây:Function Demuoc(k: word): word; c) Viết chơng trình sử dụng 2 chơng trình con trên để nhập một dãy gồm n số nguyên dơng, in ra màn hình các phần tử là số nguyên tố.