program karakterinvoer; uses wincrt;
var
	letter: char;
begin
	write('Tik een letter in: ');
	read(letter);
	write('Je hebt een ', letter, ' ingetikt.')
end.