begin
  var c := 'a';
  var i := c.Code;
  Println(i);
  Println(Chr(i))
end.