Определите необходимые ресурсы для загрузки файла и папки,сформулируйте основную идею темы.

нужно знать размер файла , который будем передавать и сколько есть свободного места для скачивания это файла

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin   var n: =readinteger('n=');   var s: =n mod 10;   n: =n div 10;   var d: integer;   while n> 0 do (d,n): =(n mod 10,n div 10);   s+=d;   writeln('сумма ',s);   if s> 10 then writeln('верно') else writeln('неверно') end. №2 begin   var s: =readinteger('n=').tostring;   var n: =s.length;   (s[1],s[n]): =(s[n],s[1]);   s.println;   if s[n].todigit.iseven then writeln('верно') else writeln('неверно') end. №3 begin   var n: =readinteger('n=');   var p: =1;   while n> 0 do begin       var d: =n mod 10;       if d.isodd then p*=d;       n: =n div 10       end;   writeln('произведение ',p);   if p.inrange(100,999) then writeln('верно') else writeln('неверно') end. №4 begin   var n: =readinteger('n=');   var k: =0;   while n> 0 do begin       if n mod 10=5 then k+=1;       n: =n div 10       end;   if k=3 then writeln('верно') else writeln('неверно') end. №5 begin   var n: =readinteger('n=');   var k: =1;   writeln('делители: ');   for var i: =1 to n div 2 do       if n mod i=0 then begin           print(i);           k+=1           end;   writeln(n);   if k.iseven then writeln('верно') else writeln('неверно') end.