program karakter_selectie; uses wincrt;
var
	letter: char;
	hoofdletter, kleineletter: boolean;
begin
	write('Geef een letter: ');
	read(letter);
	hoofdletter:=(letter>='A') and (letter<='Z');
	kleineletter:=(letter>='a') and (letter<='z');
	if hoofdletter
	then
		write('Dat is een hoofdletter.')
	else
		if kleineletter
		then
			write('Dat is een kleine letter.')
		else
			write('Dat is geen letter.')
end.