module main; from io import Writef, output; var a : array[1..100] of char; begin a := "blah"; Writef(output, "%s", a); end main.