Question

free pascal编程习题，结果如下

zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile
zhongqiu kuaile
guoqing kuaile

Answer 1

program p7(input,output);
var
i:integer;
begin
for i:=1 to 10 do
begin
writeln('zhongqiu kuaile');
writeln('guoqing kuaile');
end;
end.