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

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.