Программа в паскале без if,else,while и тому подобные: определить является ли число однозначным.

Var input:integer;

begin
write('Enter number - ');
readln(input);

case input of
1..9:writeln('Odnozhachnoe!');
else writeln('Error!');
end;

end.