Вывести на экран все нечетные числа из последовательности чисел, вводимых с клавиатуры))

// pascalabc.net 3.0, сборка 1088 const   n=10; // количество вводимых чмсел var   a: array[1..n] of integer;   i,k,t: integer; begin   writeln('введите через пробел ',n,' целых чисел');   k: =0;   for i: =1 to n do begin       read(t);       if odd(t) then begin inc(k); a[k]: =t end       end;   if k> 0 then begin       write('нечетные числа: ');       for i: =1 to k do write(a[i],' ');       writeln       end   else writeln('все введенные числа - четные') end. тестовое решение: введите через пробел 10 целых чисел 24 137 -53 46 0 -18 35 2 352 1111 нечетные числа: 137 -53 35 1111

//pascal abc.net версия 2.2 сборка 790 const   n=5; var ar: array[1..n] of integer; ar2: array[1..n] of integer; i,k: integer; begin; for i: =1 to 5 do   begin;   readln(ar[i]);   if odd(ar[i])  then       begin;       inc(k);       ar2[k]: =ar[i];     end;   end; if k=0 then   begin;   writeln('no odd numbers');   exit;   end; writeln('result: '); for i: =1 to k do  write(ar2[i]: 4); end.

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один