Очень нужно

[Эдик2010]

Дано натуральное число. Определить количество его делителей. Сколько из них четных?

[Вадим Мошев]

{N - натуральное число}

var i, chet,  delitCount N: integer;
begin

write('Введите значение числа n');
read(n);
chet:=0;  delitCount:=0;

for i:=2 to abs(n) - 1 do 
 begin
      if n mod i = 0 then INC(delitCount);
      if not odd(i) then INC(chet);
 end;

whiteln('Число делителей = ' , delitCount);
whiteln('Из них чётных = ' , Chet);

end.