простая но не рабочая программа задача, exitcode 200, теперь 207 Опции

[compiler]

есть задача

Код

8.Вычислите сумму и среднее арифметическое всех четных делителей числа N: Longint.

моё решение

var
	n, j,i,s:integer;
begin
	s:=0;
	i:=0;
	ReadLn(n);
	While n<>0 do begin
		j:=n mod 10;
		if j<>0 then begin
			if (j mod 2 =0) and (n mod j =0) then begin 
				inc(i);
				s:=s+j;
			end;
		end;
		n :=n div 10;
	end;
	writeLn(i);
	writeLn(s/i);	
	
	ReadLn(i);
end.

ошибка при запуске. как исправить?

добавлено позже
программа подправлена.

Сообщение отредактировано: compiler - 29.04.2007 18:50

[мисс_граффити]

ну, с маленькими и простым перебором можно
напишешь сам? просто перебираешь все четные числа меньше n/2 (и при необходимости приплюсовываешь само n). если делится - добавляешь к сумме.