Дано трехзначное число.получить 6 различных чисел, образованных перестановкой цифр заданного числа. сделать в эксель,

Program sredarifment;   var a: array[1..10] of real;     i, k: integer;     c, s, sred: real;   begin    for i: =1 to 10 do    begin      write ('a[',i,']='); readln (a[i]);     end;     write('введите c: '); readln (c);     for i: =1 to 10 do    begin      if a[i]> c then      begin s: =s+a[i]; k: =k+1; end;     end;     sred: =s/k;     writeln('среднее арифметическое чисел, превосходящих ',c,' равно ',sred);   end.

1. окно обработки слайдов 2. файл 3. с текущего или с начала 4. из вкладок главная вставка резензирование и т.д. 5. вставка таблиц, картинок, текста, звука видео и т.д. 6. готовый задний фон 7. просмотр по времени 8. для разных путей, или на всякий случай. либо различные варианты одного слайда 9. функции подсказок или подробного рассказа 10. удаление и вырезание 11. см.5 12. множество форматов, проверка на вирусы и защита паролем 13. rar, zip, 7z, krz и т.д. 14. в текущую папку, в пусть. определённого файла или всех. 15. картинки или маленькие файлы не уверен что всё правильно