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