a demo program writen using free pasca