Delphi/Pascal: 490