Воспользоваться оператором IF
IF a[i]>0
then writeln(a[i];
IF (a[i] mod 5=0)
then writeln(a[i];
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.