Найти количество делителей натурального числа. Сколько из них четных? Решить в Turbo Pascal, без массивов. Срочно, ПОЖАЛУЙСТА

Не знаю правильно или нет. ☻

Спасибо большое ♥

var N,delit,count,ccount:integer; begin read(N); count:=0; ccount:=0; for delit:=1 to N do if N mod delit = 0 then begin count:=count+1; if (delit mod 2 = 0) then ccount:=ccount+1; end; writeln('Delit: ',count); writeln('Chetn Delit: ',ccount); end.