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

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.