A program in pascal showin fractions as a result 1/3 , 1/6 ,..
..upto 1/27

Please read this thread for suggestions on how to post meaningful questions.

If you'd read the Posting Rules you would know that you won't get someone here to write your code for you.