PROGRAM read_some_char_data;

VAR  letter : CHAR;
     index  : BYTE;

BEGIN
  FOR index := 1 TO 5 DO
  BEGIN
    WRITE('Input a character ');
    READLN(letter);
    WRITELN('The character input was an ',letter);
  END;
END.