Questo potrebbe essere una bozza di come potrebbe essere il tuo programma

codice:
while esisteinput do
 leggi numero
 if Pari(numero) then
  pari:=pari+1
 else
  dispari:=dispari+1
 endif
 paripercent=(pari/(pari+dispari) )*100
 disparipercent=(dispari/(pari+dispari))*100
end:
end
Saluti