Составить программку, которая определяет абсолютное число. в Паскале.

Натуральное число нарекают абсолютным, если оно равно сумме собственных обычных делителей, не считая его самого.
Т.е. сумма всех чисел, на которые нацело делится число, за исключением самого числа.
К образцу, числа, на которые делится число 6 =gt; 1,2,3. Их сумма также одинакова 6 = 1+2+3
Значит число 6 абсолютное.

Последующая программа определяет, абсолютное число либо нет.

var
sum: integer;
d: integer;
i: integer;
begin

sum:= 0 ;

write(Введите целое число: );
readln(i);

if i lt;gt; 1 then
begin
for d:=1 to (i div 2) do
begin
if i mod d = 0 then sum:= sum + d;
end;
end;

if i = sum then writeln(числo , i, абсолютное)
else writeln(числo , i, НЕ абсолютное);

end.