Не могу с клавиатуры вводятся n чисел. найти сумму первых трёх нечетных чисел. вас с

Var numb,n,summa,k:integer;
begin
readln(n);
for k:= 1 to n do
 begin
readln(numb);
if numb mod 2 =1 then
summa:=summa+numb;
end;
writeln(summa);
end.