1: program assign (input, output); 2: 3: var a : array [1..100] of char; 4: begin 5: a := 'blah'; 6: write(output, a); 7: end.
