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

Извини, неудобно через комментарии писать

нечего

Program DZ9_4;var a:integer; b:boolean;BeginReadln(a);b:=(a>0) and (и тут я хочу написать что оно а в десятичной системе);Writeln(b);End.

Работает?

как написать что а в десятичной системе

var input:integer;beginwrite('Enter number - ');readln(input);case input of1..9:writeln('Odnozhachnoe!');else writeln('Error!');end;end.