Entrar com números positivos e exibir se cada número é par ou ímpar. O algoritmo termina quando é digitado -1?

não, vc precisa determinar se até quanto o contador deve contar, por exemplo: < ou = 1, 3, etc.

Algoritmo "ParOuImpar"

Var

numero : inteiro

Inicio

escreva("Escreva um número: ")

leia(numero)

se numero mod 2 = 0 entao

escreva("O número ", numero, " é par!")

senao

escreva("O número ", numero, " é ímpar!")

fimse

Fimalgoritmo