1楼：program yh(input,output);
var m,n,c:integer;
begin
for m:=0 to 10 do
..

2楼：太谢谢了,我刚好需要这个程序