定义
播报编辑
实例
播报编辑
programProject2—5；
{$APPTYPECONSOLE}
{$R术．re8}
Var
i，j，k，S：Integer；
begin
s：=0；
fori：：1to5do
begin
forJ：=1to4do
fork：=1to3do
begin
writei，’X’，j，’X’，k，’+
s：--s+1+J+k；
end；
一1-
writeln：
end；
writeln(s)；
readln；
end．
也可以将之改写成while语句或repeat语句的结构，读者可自己练习。
