C++ :

#include<cstdio>
using namespace std;
int main()
{
	int i,n,s=0;
	scanf("%d",&n);
	for(i=1;i<=n;i++)
	{
		if(n%i==0)s++;
	}
	printf("%d\n",s);
	return 0; 
}

Pascal :

var
    s,i,n:integer;
begin
    readln(n);
    for i:=1 to n do begin
        if n mod i=0 then s:=s+1;
    end;
    writeln(s);
end.