Как из программы shareman скинуть или переместить фильм на рабочий стол. !

По-моему все фильмы идут в одну папку. нужно найти эту папку, и дальше нужно каким-нибудь образом скинуть.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018внимание! если программа не работает, обновите версию! 3. заполнить массив случайными целыми числами (0-10). найти сумму четных и нечетных значений.begin  var a: =arrrandom(readinteger('n='),0,10); a.println;   var so: =a.where(t-> t.isodd).sum;   var se: =a.where(t-> t.iseven).sum;   writeln('сумма четных значений равна ',so,', нечетных ',se)end.примерn= 154 2 1 9 1 1 6 5 10 8 3 9 7 7 9сумма четных значений равна 52, нечетных 30 5. заполнить массив целыми числами с клавиатуры. найти произведение всех элементов массива.ограничим ввод нулем, поскольку ввод нуля обнулит все произведение.begin  readseqintegerwhile(t-> t< > 0).aggregate(biginteger(,q)-> p*q).printlnend.пример-4523 235423 6734532 2342354 67345423 2342342 -43532423 0115347094687898985235964440890392383424914416 7. заполнить массив случайными целыми числами в интервале от 0 до 18. найти наибольший элемент среди всех чисел массива и указать его номер.begin  var a: =arrrandom(readinteger('n='),0,18); a.println;   var imax: =a.indexmax;   writeln('наибольший элемент ',a[imax],' имеет номер ',imax+1)end.примерn= 131 4 8 18 14 14 7 1 12 15 16 12 11наибольший элемент 18 имеет номер 4