Pascal and calcule telephone bills

does anyone knows a algoritem to do that , thanks.
please reply by email