Помогите пожалуйста!!! очень срочно!!!
X:=x mod 2; "Х присваивается остаток от деления на 2( признак нечетности, если остаток не равен 0)" While x<31 do "Выполнять до тех пор пока число будет не больше 31"