Найти колличество делителей и четных делителей у натурального числа

Program chislo; var N,delit,count,ccount: integer; beginread (N); count: =0; ccount: =0; for delit: =1 to N doif N mod delit=0 thenbegincount: =count+1; if (delit mod 2=0) then ccount: =ccount+1; end; writeln ('Делителей: ',count); writeln ('Четных делителей: ',ccount); end.