дан массив случайных чисел в диапазоне от -10 до 100 заменить чётные элементы нулем

Надо что бы program begin и end было, я болел много и просто всю информатику не знаю, щас думаю что делать, и конспектов нет

Program Name;