Вводится целое число, если это цифра, то определить четная она или нет, а если число, то определить попадает ли оно в диапазон от 10 до 100, если нет, то выдать соответствующее сообщение. Паскаль
begin var n := ReadInteger('n:'); if n in 0..9 then Print('Это',n.IsEven?'чётная':'нечётная','цифра') else Print('Это число',n in 10..100?'попадает':'не попадает'); end.
Пример работы: