Написать программы в паскале. 1. Дан массив целых чисел. Напечатать все элементы, оканчивающиеся нулем. 2. Дан массив целых чисел. Все нечетные числа удвоить, а четные уменьшить вдвое. Помогите, пожалуйста!

{1. Дан массив целых чисел. Напечатать все элементы, оканчивающиеся нулем.} {mod  - остаток от деления, например 123 mod 10 =3} var a: array [1..100] of integer;    i,N:integer; begin  writeln('Введите кол-во элементов массива'); readln(n);  writeln('введите эл-ты массива');  for i:=1 to N do read(a[i]);  writeln(' эл-ты массива оканчивающиеся нулем.');  for i:=1 to N do   if a[i] mod 10 =0 then writeln(a[i]:5);  end.