Delphi/Pascal: 500