pascal打印下列图形

给你举个例子：
writeln(' @@@@@@ ');
再问： 输入n值来控制图案的规模，下列图案均以n=3为例，你也没有n呀
再答： for i:=1 to n do begin foe j:=1to i do wriet('*'); writeln; end; 折磨简单的循环= = 你刚学吧
再问： foe是啥玩意，咋没前缀？都写上，包括program
再答： 呃。。。不好意思键盘小= = 打错了= = 应该是for
再问： 我q845967567 你家我把 这上头不方便
再答： program abc; var n,i,j:longint; begin readln(n); for i:=1 to n do begin for j:=1 to i do write('*'); writeln; end; end. ok了
再问： 加我呀
再答： 加了