--> procedure till20() for i=1 to 20 do for j=1 to 20 do printf(1,"%d",s[i][j]) if s[i][j]=20 then goto :done end if printf(1,", ") end for printf(1,"\n") end for ::done printf(1,"\n") end procedure till20()