begin comment create symbol by its code (procedure code() ) ; string (1) ch; integer n; start:; read (n); ch := code(n); write(ch); goto start; end.