gcbL

Olá, preciso de ajuda com um exercício em pascal! Ex:Faça um programa em Pascal que gere um vetor com os três primeiros números perfeitos. Sabe-se que um número é perfeito quando é igual à soma de seus divisores (exceto ele mesmo). Program num_perfeitos; var v:array[1..3] of integer; i,j,num,soma:integer; Begin soma:=0; for j:=1 to 3 do begin for num:=1 to 500 do begin for i:=1 to num-1 do begin if (num mod i =0) then soma:=soma+i; end; end; if (soma=num) then v[j]:=num; end; for j:=1 to 3 do write(v[j],' '); readln; End. Desenvolvi esse porém não da certo, o cálculo dá zero. Alguém pode me ajudar? EDIT!!! Consegui resolver!!!