pascal庆祝新年程序

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.