Nhập vào số nguyên dương n (0<N<100) và dãy n số nguyên dương. Viết chương trình in ra các số là số chính phương và các số là số nguyên tố có trong dãy, nếu dãy không có số chính phương và không có số nguyên tố thì thông báo ‘dãy không có số chính phương, nguyên tố'

ngôn ngữ pascal (ko dùng hàm).

Cho dãy A gồm n số (1 < n <= 10) và một số nguyên dương K (1 < K <= n/2). Hãy tìm cách chia dãy số A thành K nhóm sao cho tổng của chúng bằng nhau.
Dữ lieu vào gồm 2 dòng, dòng đầu chứa 2 số nguyên n và K, dòng thứ 2 ghi n số của dãy A. Dữ liệu ra gồm K dòng, mỗi dòng là các số thuộc cùng một nhóm, nếu không chia được thì ghi -1
Vd:

Input:
5 3
1 4 6 9 10

Output:
1 9
4 6
10

60,000,000đ có thể mua nhiều quà tặng cho Giỗ tổ Hùng Vương,miễn phí tiền từ ứng dụng Cashzine.Sự kiện giải thưởng tiền mặt 60,000,000đ:Thu thập xếp hình ,tôi đã có 17 thẻ trong 2 ngày ,để có cơ hội nhận giải thưởng tiền mặt 60,000,000đ. ngoài ra bạn còn có thể đọc báo kiểm tiền. Vui lòng tải ứng dụng cashzine để nhận thưởng miễn phí  rồi nhập mã mời của tôi 57604764,cả hai chúng ta sẽ nhận được một thẻ.hãy hành động ngay.
làm ơn

Mọi người cho em hỏi để in 1 chuỗi kí tự dài ra ngay giữa màn hình  có lần em thử như thế này: writeln(’____aaaaaaaaaaaaaaaa’); thì nó canh giữa màn hình nhưng rất xấu.Em nên dùng lệnh gì? 

giải hộ bài này với