pascal ABC

[saharok]

Не понимаю..можете объяснить???

1)Составить программу нахождения цифрового корня на¬турального числа. Цифровой корень числа получается следу¬ющим образом. Складываем все цифры этого числа, затем все цифры найденной суммы и повторяем этот процесс до тех пор, пока в результате не будет получено однозначное число (циф¬ра), которое и называется цифровым корнем данного числа.

2)Найти натуральное число из интервала от до , у которого количество делителей максимально. Если таких чисел несколько, то должно быть найдено:
1) максимальное из них;
2) минимальное из них;


3)Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операции деления, целочисленного деления и определения остатка не использовать.

Хотя бы одну из них=(

[Hacker19_90]

проверте
1)

read (chislo);
kor := chislo
while kor >= 10 do
begin
    temp := kor;
    kor := 0;
    while temp <> 0 do
    begin
        kor := kor + (temp mod 10);
        temp := temp div 10; 
    end
end
writeln (kor)