Вывести первые N натуральных чисел, сумма цифр которых
нечётная. Паскаль. Через вложенные циклы со счетчиком.

var n,i,a,k,s:integer;beginwrite('n = ');readln(n);k:=0;i:=0;while k<n do begin i:=i+1; s:=0; a:=i; while a>0 do  begin  s:=s+a mod 10;  a:=a div 10;  end; if s mod 2 <> 0  then begin write(i,' '); k:=k+1; end; end;end.Пример:n = 201 3 5 7 9 10 12 14 16 18 21 23 25 27 29 30 32 34 36 38