program P106_4(input,output);
type
aMatrix=array[1..3,1..4] of integer;
bMatrix=array[1..4,1..3] of integer;
var
a:aMatrix;
b:bMatrix;
i,j:integer;
procedure transpose(x:aMatrix;y:bMatrix); / /这个程序，y前面要不要加个Var
var
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
b[j,i]:=a[i,j];
end;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i,j]);
transpose(a,b);
for i:=1 to 4 do
begin
for j:=1 to 3 do
write(b[i,j]:4);
writeln
end;
readln
end.

不要

不要吧

很多人的新年愿望一年一变，我却很专一，我每年的新年愿望都一样——有钱。

一次，我对老婆说：“亲爱的，如果我一下子变得一无所有，只能以拾破烂为生，你还会跟着我吗？”老婆听了冲我莞尔一笑说：“老公，怎么这么说呢，我是那种人吗？”我顿时感动得不知说什么好，老婆见状拍拍我的肩膀说：“那你一定要好好努力呀！”我眼红使劲点点头。谁知，老婆接着笑眯眯地来了一句：“亲爱的，俗话说‘三百六十行，行行出状元’，捡破烂的也有春天，等你成了百万富翁后再来找我，好吗？”