Contribute correction: Turbo Pascal v3.3f

  ______     ___     _    _      ___    
 /_   _//   / _ \\  | || | ||   / _ \\  
 `-| |,-   / //\ \\ | || | ||  / //\ \\ 
   | ||   |  ___  ||| \\_/ || |  ___  ||
   |_||   |_||  |_|| \____//  |_||  |_||
   `-`'   `-`   `-`   `---`   `-`   `-`