Pascal помогите решить задачки

[Darf]

Понятно! скажу что коряво записал! как нить!!!!! ОГРОМНОЕ СПАСИБО! я бы до этого 10 лет дотюкивался бы=))

[Darf]

Спасибо! я убрал восьмёрку! скажу что не увидел! ОГРОМНОЕ СПАСИБО ЕЩЁ РАЗ!!!!!!!

[__STDC__]

Да не за что...

[__STDC__]

оопс... туплю.. сейчас вторую..)

[__STDC__]

Вот вторая задача.. про совершенные числа:

function own_num(n:integer):boolean;
var	
	i,sum:integer;
begin
	own_num := false; sum := 0;
	for i:=1 to n-1 do 
		if (n mod i = 0) then sum := sum + i;
	if (sum = n) then own_num := true;
end;

var
	i,j,n:integer;
	
begin
	j := 1;
	writeln('Enter N: ');
	readln(n);
	for i:=1 to n do begin
		if own_num(i) then begin
			writeln('Perfect number ',j,' = ',i);
			inc(j);
		end;
	end;
    readln;
end.

[Darf]

СПАСИБО ОГРОМНОЕ! БЛИН! ПОМОГО НЕРЕАЛЬНО!!!! СПАСИБО!

[Darf]

ток чёт там ошибка вылазиет!

[__STDC__]

где? какая?

[Darf]

Begin expected

[__STDC__]

оО это в какой программе? у меня все работает.. begin потерял где-то..
там еще можно убрать у for begin-end... вот так

function own_num(n:integer):boolean;
var	
	i,sum:integer;
begin
	own_num := false; sum := 0;
	for i:=1 to n-1 do 
		if (n mod i = 0) then sum := sum + i;
	if (sum = n) then own_num := true;
end;

var
	i,j,n:integer;
	
begin
	j := 1;
	writeln('Enter N: ');
	readln(n);
	for i:=1 to n do 
		if own_num(i) then begin
			writeln('Perfect number ',j,' = ',i);
			inc(j);
		end;
    readln;
end.