Meta-Loopless Sorts

Time Limit:  1 s      Memory Limit:   128 MB
Submission:9     AC:0     Score:99.94



Sorting holds an important place in computer science. Analyzing and implementing various sorting algorithms forms an important part of the education of most computer scientists, and sorting accounts for a significant percentage of the world's computational resources. Sorting algorithms range from the bewilderingly popular Bubble sort, to Quicksort, to parallel sorting algorithms and sorting networks. In this problem you will be writing a program that creates a sorting program (a meta-sorter).

The Problem 

The problem is to create several programs whose output is a standard Pascal program that sorts


numbers where


is the only input to the program you will write. The Pascal programs generated by your program must have the following properties:

For those unfamiliar with Pascal syntax, the example at the end of this problem completely defines the small subset of Pascal needed.


The input consist on a number in the first line indicating the number M of programs to make, followed by a blank line. Then there are M test cases, each one consisting on a single integer n on a line by itself with 1 $ \leq$ n $ \leq$ 8. There will be a blank line between test cases.


The output is M compilable standard Pascal programs meeting the criteria specified above. Print a blank line between two consecutive programs.


1 3
program sort(input,output); var a,b,c : integer; begin readln(a,b,c); if a < b then if b < c then writeln(a,b,c) else if a < c then writeln(a,c,b) else writeln(c,a,b) else if a < c then writeln(b,a,c) else if b < c then writeln(b,c,a) else writeln(c,b,a) end.