Delphi/Pascal: 490

.