SPOJ 1. Life, the Universe, and Everything

Here is the problem statement

There is nothing to say about this problem, you only need to now the basics of your favourite programming language to solve it. Here is my solution written in Pascal.