program test;
var a:string;
begin
wtite ('Введите символ');
read(a);
if a in (0..9) then write ('number')
else write ('not a number');
end.
program test;
var a:string;
begin
wtite ('Введите символ');
read(a);
if a in (0..9) then write ('number')
else write ('not a number');
end.