/usr/share/doc/texlive-doc/latex/pygmentex/pygmentex_demo.delphi

procedure example(a: integer);
const
  A = 'jeja';
var
  sMessage: string;
begin
  ShowMessage(sMessage + A);
end;

Generated by dwww version 1.15 on Thu May 23 02:08:55 CEST 2024.