Contribute correction: Turbo Pascal

 _____       ___               _    _   
|  __ \\    / _ \\    ____    | || | || 
| |  \ ||  / //\ \\  |    \\  | || | || 
| |__/ || |  ___  || | [] ||  | \\_/ || 
|_____//  |_||  |_|| |  __//   \____//  
 -----`   `-`   `-`  |_|`-`     `---`   
                     `-`