Програма, яка виводить вид знаку, при його введенні (наприклад: 0...9 - цифра; A...Z - буква і т.п.):
program znaku;
var c: char;
begin
writeln(' BBtdit znak');
readln(c);
case c of
'0'..'9': writeln(' chifra');
'A'..'Z': writeln(' nazva literu latunskiu vtluka');
'a'..'z':writeln('nazva literu latunskiu malenki')
else writeln(' cpech simvolu');
end;
readln
end.