(* Chapter 10 - Program 4 *)
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.




{ Result of execution

( The results depend on the data entered at the keyboard)

}