program chararr; var A : array[1..5] of char; begin A := 'hi '; writeln(A) end.