Найти колличество делителей и чётных делителей у натурального числа.с помощью программы Paskal.

Предыдущий
вопрос Следующий
вопрос

program CountDivisors;

var
num, divisors, evenDivisors: integer;

begin
writeln('Введите натуральное число:');
readln(num);

divisors := 0;
evenDivisors := 0;

for i := 1 to num do
begin
if num mod i = 0 then
begin
divisors := divisors + 1;

end;

writeln('Количество делителей: ', divisors);
writeln('Количество четных делителей: ', evenDivisors);

end.