ANTICHAT - Показать сообщение отдельно - [Dalphi] Олимпиадное программирование

Народ, я щас на олимпиаде.

Дали задачи. Время поджимает, на успеваю все решить.... Кому не сложно, помогите решить пару задач. С меня +, ну или помогу, если что-то надо будет.

Вот задачи:

Код:

Задача B. Разложение на простые множители числа 12 можно записать тремя способами: 
12 = 2*2*3 = 2*3*2 = 3*2*2.
А сколькими способами можно записать разложение на простые множители числа N?

Формат входных данных
Вводится одно натуральное число N (2 ≤ N ≤ 1 000).
 
Формат выходных данных
Выведите одно число – количество различных записей разложения.

Примеры
Входные данные	Выходные данные
12	3
13	1