{ the actual program should not have line-break }
program quine; {$APPTYPE CONSOLE} uses SysUtils; const s = 'program quine;{$APPTYPE CONSOLE uses SysUti ls; const s = %s%s%s; begin WriteLn(Format(s, [#39, s, #39])); ReadLn; end.'; begin WriteLn(Format(s,[# 39, s, # 39])); ReadLn; end.
program quine; {$APPTYPE CONSOLE} uses SysUtils; const s = 'program quine;{$APPTYPE CONSOLE uses SysUti ls; const s = %s%s%s; begin WriteLn(Format(s, [#39, s, #39])); ReadLn; end.'; begin WriteLn(Format(s,[# 39, s, # 39])); ReadLn; end.