Дается последовательность из N чисел. Выведите сумму нечетных чисел среди них.…

Program chisla; var a, l: string; n, b, c, i, d, e: integer; beginc: =0; e: =0; writeln ('Введите количество чисел'); readln (n); if 1 <= n <= 1000 thenwriteln ('Введите числа'); readln (a); b: =length (a); for i: =1 to b doc: =c+1; if a[i]=' then l: =copy (a,i-c,i-1); d: =strtoint (l); if d mod 2>0 then e: =e+d; writeln (e); end.