Pascal

Mali Frane je već u drugom razredu gimnazije, a još uvijek na satovima informatike muku muči s Pascalom. Profesorica mu je za zadaću u bilježnicu napisala sljedeći program, a on mora za zadani prirodni broj N odrediti ispisani broj:
readln( N );
brojac := 0;
for i := N-1 downto 1 do begin
brojac := brojac + 1;
if N mod i = 0 then break;
end;
writeln(brojac);
Napišite program koji rješava Franin problem.