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

while true do
  writeln('SPAM');