RosettaCodeData/Task/Loops-Infinite/Pascal/loops-infinite-2.pascal

repeat
  writeln('SPAM')
until false;