begin string(1) s1; s1 := "3"; write(s1); end