Определите сумму нечётных чисел. Если введённое число будет чётным-цикл заканчивается.(решить используя оператор While)

СРОООЧЧНОООО!!!

var

a,sum:Integer;

begin

readln(a);

sum:=0;

while a mod 2 <> 0 do

begin

sum:=sum+a;

readln(a);

end;

writeln('sum=',sum);

end.