** Pascal ** Write a simple program in Pascal with these specifications:

1. Calculates real root of number entered by user (if root happens to be a complex number, print message "The root is complex").

2. The program keeps asking for input, user can input a key to terminate program. (e.g: Press 1 to enter calculator, Press any other key to exit calculator).