RT

program Happy_New_Year;
var i,j,n:longint;
begin
writeln('enter a number (smaller than 10)');
readln(n);
writeln('Preparing...');
for i:=1 to n do
begin
for j:=1 to 200000000 do;
writeln('Happy New Year!');
write(#7);
end;
writeln('Best Wishes From Su');
readln;
end.

金钱诚可贵，节操价更高。
但若为人品，两者皆可抛。
begin
while true do
writeln('rp+++');
write('rp---');
end.
结果是rp---
......