program sistemeNumeratie;
var c:char;
begin
write('introdu caracter: '); read(c);
if (c>='0')and(c<='1') then writeln('cifra a sistemului binar');
if (c>='0')and(c<='7') then writeln('cifra a sistemului octal');
if (c>='0')and(c<='9') then writeln('cifra a sistemului zecimal');
if ((c>='0')and(c<='9'))or((c>='A')and(c<='F'))or((c>='a')and(c<='f'))
then writeln('cifra a sistemului hexazecimal')
else writeln(' nu e cifra a sistemelor binar, octal, zecimal, hexazecimal');
end.