Free pascal 打印下列"*"图形

var
i,j,k:integer;
begin
k:=12;
for i:=1 to 4 do
begin
for j:=1 to i do
write('@');
write('****');
for j:=1 to k do
write('@');
dec(k,2);
writeln('****');
end;
end.

var
i,j,t,n:integer;
begin
readln(n);
t:=1;
for i:=1 to n do
begin
write('':i);
for j:=1 to 4 do
write('*');
write('':2*n+1-2*i+5);
for j:=1 to 4 do
write('*');
writeln;
end;
end.

@是空格
program a;
begin
writeln('@****@@@@@@@@@@@@**** ');
writeln('@@****@@@@@@@@@@**** ');
writeln('@@@****@@@@@@@@**** ');
writeln('@@@@****@@@@@@**** ');

program Lt1;
var a:integer;
procedure f(n:integer);
var b,c:integer;
begin
c:=1;
for b:=1 to n do
c:=c*2;
for b:=1 to n do
begin
c:=c-2;
writeln('':b,'****','****':c);
end;
end;
begin
read(a);
f(a);
end.