var i,j :Integer ;

begin

      for i :=1 to 9 do

      begin

        for j := 1 to i do

          write(i*j : 3);

          writeln;

      end ;

         readln;

end.

 代码含义：
var i,j :Integer ; 定义两个变量i,j为integer类型
begin  end表示程序开始结束代码块。
双重循环第一层表示输出行，从1行到9行分别输出1到9