BEGIN { FS="[^a-zA-Z]+" } {
        for (i=1; i<=NF; i++)
                words[tolower($i)]++
}

END {

        print "Zadanie A:\n"
        for (i in words) {
                printf "%s\t%d\n", i, words[i]
        }

        print "\n\n"


        print "Zadanie B:\n"
        for (i in words) {
                for (j=0; j<words[i]; j++) {
                    printf "%d ", words[i]
                }
        }

        print "\n\n"


        print "Zadanie C:\n"
        for (i in words) {
                wordlen=length(i)


                for (j=0; j<=(wordlen/2)-length(words[i]); j++) {
                        printf " "
                }

                printf "%d", words[i]


                for (j=0; j<(wordlen/2)-length(words[i]); j++) {
                        printf " "
                }


                if ((words[i]%2 == 0) && (length(words[i]) > 2)) {
                        printf " "
                }


        }

}