Delphi/Pascal: 506