Delphi/Pascal: 505