The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
if(!this.sh_languages){this.sh_languages={}}sh_languages.pascal=[[[/\b(?:alfa|and|array|begin|case|const|div|do|downto|else|end|false|file|for|function|get|goto|if|in|label|mod|new|not|of|or|pack|packed|page|program|put|procedure|read|readln|record|repeat|reset|rewrite|set|text|then|to|true|type|unpack|until|var|while|with|writeln|write)\b/gi,"sh_keyword",-1],[/\(\*/g,"sh_comment",1],[/\{/g,"sh_comment",2],[/\b[+-]?(?:(?:0x[A-Fa-f0-9]+)|(?:(?:[\d]*\.)?[\d]+(?:[eE][+-]?[\d]+)?))u?(?:(?:int(?:8|16|32|64))|L)?\b/g,"sh_number",-1],[/"/g,"sh_string",3],[/'/g,"sh_string",4],[/\b(?:boolean|byte|char|integer|maxint|real)\b/gi,"sh_type",-1],[/~|!|%|\^|\*|\(|\)|-|\+|=|\[|\]|\\|:|;|,|\.|\/|\?|&|<|>|\|/g,"sh_symbol",-1],[/(?:[A-Za-z]|_)[A-Za-z0-9_]*(?=[ \t]*\()/g,"sh_function",-1]],[[/\*\)/g,"sh_comment",-2],[/\(\*/g,"sh_comment",1]],[[/\}/g,"sh_comment",-2],[/\{/g,"sh_comment",2]],[[/$/g,null,-2],[/\\(?:\\|")/g,null,-1],[/"/g,"sh_string",-2]],[[/$/g,null,-2],[/\\(?:\\|')/g,null,-1],[/'/g,"sh_string",-2]]];