czy liczba jest doskonała

read(n); 	// n - dowolna liczba naturalna
dzielniki := 1;

for(i := 2; i <= n/2; i++){		// 	żadna liczba naturalna nie ma dzielników w przedziale (n/2 ; n)
	if(n%i == 0)
		dzielniki = dzielniki + i;
}

if(n == dzielniki)
	write("Podana liczba jest doskonała");
else
	write("Podana liczba nie jest doskonała");