Escreva um trecho de codigo, em Portugol, que leia uma lista de números terminada em zero e mostre se o número é par ou ímpar. ...?

algoritmo L3P062; var real : N; inteiro : C; início C ← 0 ; leia(N); enquanto ( N > 0 ) faça C ← C + 1; imprima(N*3); leia(N); fim-enquanto imprima("Foram digitados ",C," números!"); fim algoritmo L3P062B; var real : N; inteiro : C; início C ← 0; repita: leia(N); se ( N > 0 ) então C ← C + 1; fim-se enquanto ( N > 0 ); imprima("Foram digitados ",C," números!"); fim program l3p062; var N : real; C : integer; begin C := 0 ; write('Digite um numero: '); readLn(N); while ( N > 0 ) do begin C := C + 1; write('Digite um numero: '); readLn(N); end; writeLn('Foram digitados ',C,' numeros!'); end. program l3p062b; var N : real; C : integer; begin C := 0; repeat write('Digite um numero: '); readLn(N); if ( N > 0 ) then C := C + 1; until ( N <= 0 ); writeLn('Foram digitados ',C,' numeros!'); end. 

leia(num)

      enquanto (num==0)

      { se num%2==0

            escreva ( numero e par")

         senao

            escreva ("numero impar")

         leia (num)