program gg;
var a:string;
begin
write ('Введите символ');
writeln;
read(a);
if (a>='0') and (a<='9')then write ('number')
else write ('not a number');
end.
program gg;
var a:string;
begin
write ('Введите символ');
writeln;
read(a);
if (a>='0') and (a<='9')then write ('number')
else write ('not a number');
end.