pascal打印图形

Var i,j,k:integer;
Begin
j:=5;
For i:=1 to 4 do
Begin
Dec(j);
For k:=1 to j do write(' ');
For k:=1 to 4 do write('*');
Writeln;
End;
End.

在pascal中用它来做的话
****
****
****
****
用
program asd;
begin
writeln('****':4);
writeln('****':3);
writeln('****':2);
writeln('****':1);
readln
end.

var
a:integer;
begin
for a:=1 to 4 do writeln('****');
readln;
end.