An và Bình đều đều tham gia bồi dưỡng đội tuyển học sinh giỏi môn tin học; khi 2 bạn cùng nghiên cứu về xâu ký tự. Bình muốn thử tài An về khả năng so sánh các xâu trong lập trình. Thực ra việc so sánh hai xâu theo An biết là tuân theo quy tắc so sánh xâu đã được học và phụ thuộc vào độ dài và vị trí các kí tự trong bảng mã ASCII. Tuy nhiên ở đây Bình lại muốn An so sánh các số được biểu diễn bằng xâu. Bình cho An một loạt các xâu và yêu cầu An sắp xếp các xâu này lại theo quy tắc mà Bình đặt ra như sau:

- Các xâu có chứa các kí tự khác kí tự chữ số thì giữ nguyên vị trí ban đầu.

- Các xâu biểu diễn số bằng các kí tự chữ số thì được sắp xếp lại theo thứ tự tăng dần.

Dữ liệu vào: Cho từ tệp văn bản Sortx.Inp gồm 2 dòng:

Dòng 1 ghi số nguyên dương N(N < 100).

Dòng 2 ghi một dãy gồm N xâu S_1,S_2,S_N chỉ bao gồm chữ số từ 1 đến 9 và các chữ cái La tinh.

Kết quả: Ghi ra tệp văn bản Sortx.Inp gồm 1 dòng là dãy xâu trên đã được sắp xếp theo quy tắc mà Bình yêu cầu.

Ví dụ:

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ì?