Напишите логическую функцию в паскале, которая определяет верно ли, что число n- совершенное, т.е. равно сумме своих делителей, меньших его самого

Function sov(a: integer): boolean; var i, y: integer; begin      for i : = 1 to (a - 1) do          if (frac(a / i) = 0) then            y : = y + i;       result : = (y = a); end;

11. 375 байт = 375*8 бит =  3000 бит всего, значит на каждый символ приходится: 3000 / 500 бит  =  6 бит 6ю битами  мы может закодировать  различных символов. ответ. не более чем 64 12. определим объем информации занимаемый каждым символом, он равен: бит теперь умножим число символов на число байт на символ ответ 40*60*3*6 бит  =  43200 бит 13. число символов в сообщении равно: значит на каждый символ приходится: 9000 /  14400 байт = 9000 * 8  /  14400 бит =  5  бит это информационный вес каждого символа. с   5  бит можно закодировать  различных символов. ответ.  5  бит,  32 символа

Var a: array of integer; // объявление массива целых чисел   i, n: integer; // объявление целочисленных переменных begin   // запросим с клавиатуры размер массива   // и запишем его в переменную n   write('введите n: ');     readln(n);       // теперь выделим память под n элементов массива   setlength(a, n);       // теперь запросим с клавиатуры n чисел для массива   for i : = 0 to n-1 do begin     write('a[', i, ']=');     readln(a[i]);   end;       // теперь в цикле уменьшим каждый элемент на единицу   for i : = 0 to n-1 do      a[i] : = a[i] - 1;       // распечатаем массив   for i : = 0 to n-1 do      write(a[i], ' '); end.