program UnsupportedAsciiChar;
  var a, b;
begin
  a @ 1;
  b @ 2
end