Explicação:

Veja este algoritmo

algoritmo "Resposta"

var

num,cont,soma,prod:inteiro

inicio

prod<-1

soma<-0

repita

escreva("informe um numero: ")

leia(num)

se(num mod 2 =0)entao

soma<-soma+num

senao

se(num > 0)entao

prod<-num * prod

fimse

fimse

ate num <=0

escreval("a soma dos numeros pares eh : ",soma)

escreval("o produto do impares eh: ",prod)

fimalgoritmo

espero ter ajudado