A1129. [COCI-2007_2008-contest5]#5 PASCAL

Little Frane is already in tenth grade, but is still struggling with Pascal in computer class. For homework, his teacher wrote the following program into his notebook, and he needs to determine the output, given the integer N.
readln(N);
counter := 0;
for i := N-1 downto 1 do begin counter := counter + 1;
if N mod i = 0 then break;
end;
writeln(counter);
Write a program which solves Frane's problem.

The first line of input contains the integer N (1 ≤ N ≤ 10^9).

Output the result on a single line.