с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 требуется найти произведение нечетных чисел из введенной последовательности

Var   A:integer;   P:real;BeginP:=1;RepeatRead(A);if A mod 2 <> 0 then P:=P*A;Until A=0;WriteLn('Произведение нечётных чисел: ',P);End.