fork download
  1. program ArrayOfCharExample;
  2. var
  3. ArrayOfChar: array[1..10] of char;
  4. begin
  5. ArrayOfChar := 'X';
  6. Writeln('ArrayOfChar:', ArrayOfChar,'X');
  7. end.
Success #stdin #stdout 0.01s 5320KB
stdin
Standard input is empty
stdout
ArrayOfChar:X         X