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