Составить и решить задачу на ветвление и цикл СРОЧНО!

Var N,otr,pol: real; Begin Read (n); If n=0 writeln ('error') else Repeat do Write (n); If n mod 2=0 then pol: =pol+1 else otr: =otr+1; Read (n); Until n=0; Writeln ('otr: ',otr); Writeln ('otr: ',otr); End.