Напишите программку получения всех абсолютных чисел из диапазона от 1 до

var n,i,j,s,k:integer;

begin

write('Введите число: ');

readln(n);

i:=1;

while i lt;= n do  

begin

j:=1;

s:=0;

while jlt;i

do

if i mod j = 0 then

begin

s:=s+j;

j:=j+1;

end

else

j:=j+1;

if s=i then

begin

k:=k+1;

if k=1 then write('Абсолютные числа из спектра от 1 до ',n,': ');

write(i,'  ')

end;

i:=i+1

end;

if k=0 then write('Абсолютных чисел в спектре от 1 до ',n,' нет');

end.