企业保密协议:PASCAL程序设计问题（不难，会的朋友都来试试）

var
i,j,n:integer;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to i do write('&');writeln;
end;
for i:=1 to n do
begin
for j:=1 to n do write('&');writeln;
end;
for i:=1 to n do
begin
for j:=1 to i*2-1 do write('*');writeln;
end;
for i:=1 to n do
begin
for j:=1 to i do write('#');
for j:=1 to i do write('@');
for j:=1 to i do write('*');
writeln;
end;
end.

&
& &
& & &
& & &
& & &
& & &
*
* * *
* * * * *
# @ *
# # @ @ * *
# # # @ @ @ * * *

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

用pascal编这样的题
连死的心都有了
多严谨少灵活