Даны два числа Т и М. Если первое число окажется нечетным, а второе кратным трем, то вывести на печать их сумму, в противном случае – разность этих чисел. Желательно с блок-схемой и объяснением

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

4 a out 
1231 1321

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.