RosettaCodeData/Task/Literals-String/Modula-3/literals-string-1.mod3

VAR char: CHAR := 'a';