Первый файл на 1 мегабайт больше, чем второй файл. второй файл на 3072 байта больше, чем третий файл. на сколько килобайт третий файл меньше, чем первый?

1.
var i, k, n: integer;
            a: array of integer;
begin writeln('Введите кол-во элементов массива');
          readln(N);
          k:=0;
          for i:=1 to N do
          begin read(a[i]);
                    if (a[i] mod 5 =0) and (a[i] mod 3<>0) then
                    inc(k);
          end;
          writeln('k=',k);
readln;
end.
1.
var i, k, n: integer;
            a: array of integer;
begin writeln('Введите кол-во элементов массива');
          readln(N);
          k:=0;
          for i:=1 to N do
          begin read(a[i]);
                    if (a[i] mod 2 =0) and (i mod 3=0) then
                    inc(k);
          end;
          writeln('k=',k);
readln;
end.

Дана последовательность чисел А длины N. Требуется вывести в обратном порядке.
Первая строка входного файла содержит целое число N (1 <= N <= 1000000) - длину
последовательности. Вторая строка входного файла содержит N целых чисел - элементы
последовательности A. Все элементы последовательности не превосходят 100000 по
абсолютному значению.
В единственной строке выходного файла выведите элементы последовательности A в
обратном порядке. Для наглядности обратите внимание на примеры.
a in 3 a out 321
123 

4 a out 
1231 1321