проверьти плиз задачку

PASCAL

Ввести N. Найти натуральное число от 1 до N с максимальной суммой делителей.

Program Sum_Del;

Var N, I, Sum_Max, Sum, K, Ch : Integer;

Begin

Write('Введите число N: '); ReadLn(N);

Sum_Max := 1; {Максимальная сумма делителей}

Ch := 1; {Число с максимальной суммой делителей}

For I := 1 To N Do {Это цикл по количеству чисел}

Begin

Sum := 0;

For K := 1 To I Div 2 + 1 Do {В этом цикле находим сумму делителей}

If I Mod K = 0 Then {Если I нацело делится на K, то K - делитель I}

Sum := Sum + K;

Sum := Sum + I;

If Sum > Sum_Max Then Begin Sum_Max := Sum; Ch := I End;

End;

WriteLn('Максимальную сумму делителей ', Sum_Max, ' имеет число ',Ch);

End.