1-2
2-1
3-3
4-4
Если ошибаюсь, заранее извиняюсь, но вроде бы так :)
Vari:integer;
c:real;
begin
readln(c);
Repeat
i:=i+100;
writeln(i,'g: ',c*0.001*i);
until i>=2000
<span>end.</span>
program name;//Имя программы
uses crt;
var
a:integer;
BEGIN write('Введите сумму: '); readln(a);
if a < 2500
then write('Подоходный налог составляет: 0 рублей от суммы ',a, ' рублей');
if (a <= 10000) and (a >= 2500)
then write('Подоходный налог составляет:', a*0.13 ,' рублей от суммы ',a, ' рублей');
if a > 10000
then write('Подоходный налог составляет:', (a-1300)*0.15 ,' рублей от суммы ',a, ' рублей');
ReadKey;
end.<span>
</span>
8гб = 8*1024 = 8192
490 * 17 = 8330
8330>8192
Ответ нет, нельзя. Однако если засунуть эти видеоролики в сжатый zip архив то возможно что то получится. В условиях школьной задачи это вряд ли предполагается.