‘*’的排列

最简单写法：
program 1;
var i:integer;
begin
i:=1 {pascal中必须有变量，且每个变量必须赋值}
writeln('*');
writeln('**');
writeln('***');
writeln('****');
writeln('*****');
end.
for语句写法:
program 1;
var i.j:integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to 6-i do write('*');
writeln;
end;
end.
while语句写法：
program 1;
var i,j:integer;
begin
i:=5;j:=1;
while i>0 do
begin
while j<7-i do
begin
write('*');
j:=j+1;
end;
writeln;
i:=i-1;
end;
end.
repeat-until语句写法：
program 1;
var i,j:integer;
begin
i:=5;j:=1;
repeat
repeat
write('*');
j:=j+1;
until j>5;
writeln;
i:=i-1;
until i<1;
end.

还有，我是学pascal的，有问题找我，用知