Вопрос Помогите по программированию 2 задачи в делфи7 на паскале

[erandon]

1.Найти произведение ненулевых элементов, стоящих на нечетных позициях..
2..Создать программу, которая вводит три символа и выводить три символа, коды которых на 3 больше введенных.

 

[artemka123]

1 k:=1; for i:=1 to n do if ((a<>0) and (i mod 2<>0)) then k:=k*a;