Задано 10 целых чисел. Найти сумму не четных — Pascal(Паскаль)

var
s,i,a:integer;
begin

writeln('Введите 10 целых чисел:');
s:=0;
for i:=1 to 10 do
 begin
  readln(a);
  if odd(a) then s:=s+a;
 end;
write('Сумма нечетных=',s);

end.