Не прав. Я удалил Паскаль со своего компьютера и не могу проверить, но думаю эта программа, если и будет работать, то всегда будет выдавать ноль. Если подождёшь пару дней, я попробую найти у себя Паскаль и скину тебе работающую программу.