多说无益，放图

编码：
var a:longint;
begin
a:=1;
while a=1 do
begin
readln;
writeln(*┏┳━━━━━━━┓*);
writeln(*┃┃███████┃*);
writeln(*┃┃███┏━┓█┃*);
writeln(*┣┫███┃水┃█┃*);
writeln(*┃┃███┃ ┃█┃*);
writeln(*┃┃███┃帝┃█┃*);
writeln(*┣┫███┃ ┃█┃*);
writeln(*┃┃███┃真┃█┃*);
writeln(*┃┃███┃ ┃█┃*);
writeln(*┣┫███┃经┃█┃*);
writeln(*┃┃███┗━┛█┃*);
writeln(*┃┃███████┃*);
writeln(*┗┻━━━━━━━┛*);
end;
end.
注意要先开启中文，否则中文会变乱码

如此水，无力吐槽

。。输入到文件中。。复制，粘贴。。

申明：由于单引号被百度变成了*请注意修改

呵呵

挤一挤
-_-1969年7月20日，美国宇航员阿姆斯特朗打开登月舱舱门，沿着梯子缓缓走出，随即他在月球表面留下了人类第一个脚印，并说出了那句世人皆知的名言：“前排挤一挤”

为什么不用while true do呢
--i3战A8（i3 can fight A8），i5秒全家（i5 can kill AMD all family）， i7轰成渣（i7 can boom everything to be Lenovo）　_(:3 」∠)_

lz好腻害的样子！我就一初学党……而且还缺了6节课没上，课程落下一大截啊啊啊……
　　　　------说自己是渣的触一定患有严重的精神分裂症！因为明知道自己是触触却说自己是渣渣！

用文本文件就好了，更简单

var a:longint;b:string;c:text;
begin
assign(c,'r.txt');
reset(c);
readln(a);
while a<>0 do begin
a:=a-1;
readln(c,b);
writeln(b);
end;
close(c)
end.

中英文我都不管了

这贴也太水了……还有，@风x千叶翔龙V 这楼主的ID也是233了

lz名字缩写是yyh？