loopless

#include<iostream>
#include<string>
using namespace std;


string getVarString(int n)
{
    string varString;
    if(n==2)
    {
        varString = "a,b : integer;";
    }
    else if(n==3)
    {
        varString = "a,b,c : integer;";
    }
    else if(n==4)
    {
        varString = "a,b,c,d : integer;";
    }
    else if(n==5)
    {
        varString = "a,b,c,d,e : integer;";
    }
    else if (n==6)
    {
        varString = "a,b,c,d,e,f : integer;";
    }
    else varString = "a,b,c,d,e,f,g : integer;";
    return varString;
}

string getReadlnString(int n)
{
    string readlnString;
    if(n==2)
    {
        readlnString = "  readln(a,b);";
    }
    else if(n==3)
    {
        readlnString = "  readln(a,b,c);";
    }
    else if(n==4)
    {
        readlnString = "  readln(a,b,c,d);";
    }
    else if(n==5)
    {
        readlnString = "  readln(a,b,c,d,e);";
    }
    else if (n==6)
    {
        readlnString = "  readln(a,b,c,d,e,f);";
    }
    else readlnString = "  readln(a,b,c,d,e,f,g);";
    return readlnString;
}


void writePascalCode(int n)
{
    cout << "program sort(input,output);" << endl;
    cout << "var" << endl;
    cout << getVarString(n) << endl;
    cout << "begin" <<endl;
    cout << getReadlnString(n) << endl;

    if(n==2)
    {
        cout << "  if a < b then"<< endl;
        cout << "    writeln(a,b)"<<endl;
        cout << "  else"<<endl;
        cout << "    writeln(b,a)"<<endl;
    }

    if(n==3)
    {
        cout << "  if a < b then" << endl;
        cout << "    if b < c then" << endl;
        cout << "      writeln(a,b,c)" << endl;
        cout << "    else if a < c then" << endl;
        cout << "      writeln(a,c,b)" << endl;
        cout << "    else" << endl;
        cout << "      writeln(c,a,b)" << endl;
        cout << "  else" << endl;
        cout << "    if a < c then" << endl;
        cout << "      writeln(b,a,c)" << endl;
        cout << "    else if b < c then" << endl;
        cout << "      writeln(b,c,a)" << endl;
        cout << "    else" << endl;
        cout << "      writeln(c,b,a)" << endl;
    }

    if(n==4)
    {

    }

    if(n==5)
    {

    }

    if(n==6)
    {

    }

    if(n==7)
    {

    }

    cout << "end." << endl;
}

int main()
{
    int n;
    int numberOfPrograms;
    char space;

    cin>>numberOfPrograms;
    cin >> space;

    for(int i = 0 ; i <numberOfPrograms ; i++)
    {
        cin >> n;
        writePascalCode(n);
        if((i+1)<numberOfPrograms)
        {
            cin >> space;
        }
    }


    return 0;
}