pascal语言Pascal程序：请帮我解释下 这个程序的每一步意思

program Exam38; //程序名

const n=7; //定义一个常量 n 值为7

var a,b,c,t: integer; //声明四个整形变量

Begin //程序入口，开始

t:=0; //给t赋值，使t为0

for a:=1 to n do //以下语句执行n次，即7次

for b:=1 to n do //以下语句执行n次，即7次，因为上面要求循环7次，所以实际是49次

for c:=1 to n do //以下语句执行n次，即7次，因为上面要求循环49次，所以下面的语句一共执行了343次

if (a-b) * (b-c) * (a-c) < >0 then //如果(a-b) * (b-c) * (a-c)满足不等于零这个条件，就执行一对begin 和 end 之间的代码

Begin //上述条件满足，执行

inc (t);// t增加1

writeln (a:3, b:3, c:3) //使a为3，b为3，c为3？？这句不太明白

End; //条件部分结束

writeln ( total:, t :5); //

readln //输入一个字符

End.//程序结束

program Exam38; //程序名

const n=7; //定义一个常量 n 值为7

var a,b,c,t: integer; //声明四个整形变量

Begin //程序入口，开始

t:=0; //给t赋值，使t为0

for a:=1 to n do //以下语句执行n次，即7次

for b:=1 to n do //以下语句执行n次，即7次，因为上面要求循环7次，所以实际是49次

for c:=1 to n do //以下语句执行n次