Дана последовательность целых чисел, оканчивающаяся нулём. необходимо найти сумму всех нечетных чисел этой последовательности. ноль числом последовательности не считается. паскаль

Program srof;
var a,b:integer;
begin 
writeln('введите последовательность чисел закончив её введением 0'); 
readln(a); 
b:=0; 
c:=0; 
while (a<>0) do 
begin 
if a mod 2 <>0 then 
b:=b+a; 
readln(a); 
end;
 writeln(b);
 end.