Вычислите сумму всех нечетных чисел из десяти вводимых. В паскале.  

Program Summa; Uses Crt; var i,s,n:integer; begin      clrscr;      write('Введите 10 чисел: ');       s:=0;       for i:=1 to 10 do            begin                 readln(n);                      if (n mod 2)<>0 then s:=s+n;              end;              writeln;       writeln('Сумма всех нечётных чисел:',s);     readkey;  end.         

var n,a,i,k:integer; begin read(n); k:=0; for i:=1 to n do begin read(a);if a mod 2<>0 then k:=k+a; end; write(k); end.