28+14 БАЛЛОВ!!!!!!!!!!
Используйте оператор break или continue.
В шестизначном целом числе определите позицию первой нечетной цифры.

что означает length ?

и можно ли заменить

функция length - возвращает длину строки

//PascalABC.Net 3.2beginvar n:=readstring ('Ввод числа: ')+' ';var i:=0;for i:=1 to length(n) do if n[i] in ['1', '3', '5', '7', '9'] then break;if i=length(n) then write ('Нет нечетной цифры') else write(i);end.