多重循环

{$APPTYPECONSOLE}{$R术．re8}Vari，j，k，S：Integer；begins：=0；fori：：1to5dobeginforJ：=1to4dofork：=1to3dobeginwrite(i，’X’，j，’X’，k，’+s：--s+1+J+k；end；一1-writeln：end；writeln(s)；readln；end．也可以将之改写成while语句或repeat语句的结构，读者可自己练习。