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

[Atatatata]

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

 

[yaroslav]

Первое proz:=1; for i:=1 to n do if (a<>0) and (i mod 2<>0) then proz:=proz*a;

 

[Doska]

readln(x); writeln(char(ord(x)+3)); Для трех сделай самостоятельно)