98 совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число 6=1+2+3). напишите программу, которая вводит натуральное число n и находит все совершенные числа в диапазоне от 1 до n . входные данные входная строка содержит натуральное число n . выходные
данные программа должна вывести в одну строку через пробелы все совершенные числа в диапазоне от 1 до n . если таких чисел нет, программа должна вывести число 0. примеры входные данные 30 выходные данные 6 28 входные данные 5 выходные данные 0

Program nnatovna;
uses crt;
const n=13;
var
  a:array [1..n] of integer;
  i,min,max,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
{меняем местами мин и мах элементы}
  temp:=a[min];
  a[min]:=a[max];
  a[max]:=temp;    
{вывод результата}
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.

1. Процессор
2. Память
  2.1. Оперативная память
  2.2. Долговременная память
    2.2.1. Жесткий магнитный диск
    2.2.2. Дискета
    2.2.3. Флэш-память 
    2.2.4. Оптические диски
       2.2.4.1. CD
       2.2.4.2. DVD
3. Устройства ввода
  3.1. Клавиатура
  3.2. Мышь
  3.3. Сканер
  3.4. Графический планшет
  3.5.Цифровая камера
  3.6. Микрофон
  3.7. Джойстик
4. Устройства вывода
  4.1. Монитор
    4.1.1. Жидкокристаллический монитор
    4.1.2. Монитор на электронно-лучевой трубке
  4.2. Принтер
    4.2.1. Матричный принтер
    4.2.2. Струйный принтер
    4.2.3. Лазерный принтер