RosettaCodeData/Task/Loops-Infinite/Pascal/loops-infinite-1.pas

while true do
  writeln('SPAM');