Pascal.Распечатать числа в диапазоне от 1 до N, у которых сумма первой и второй цифры является нечетной.

begin
  var n:=ReadInteger('n=');
  for var i:=10 to n do begin
    var s:=i.ToString;
    if (s[1].ToDigit+s[2].ToDigit).IsOdd then Print(i)
    end;
  Writeln
end.


10 12 14 16 18 21 23 25 27 29 30 32 34 36 38 41 43 45 47 49 50 52 54 56 58 61 63 65 67 69 70 72 74 76 78 81 83 85 87 89 90 92 94 96 98 100 101 102 103 104 105 106 107 108 109