Напишите программу, определяющую, является ли данный символ цифрой или нет. напишите программу, которая получает на вход один символ и выводит строку yes, если символ является цифрой и строку no, в противном случае.

PascalABC.Net

var   
c : char;    
begin  
readln (c);   
case (ord (c)) of   
48..57 : writeln ('yes');     
else     writeln ('no');   
end; 
end.