begin 后面是程序
每一个begin后面必定有一个end;与之呼应
程序末尾的end后面是.
例如
var
i,j,k,l,m,n:longint;
c:char;
begin//主程序begin
read(c);
n:=ord(c)-65;
for i:=1 to n do
begin//循环下的begin,令其为1号(begin1号与end1号间为每次循环要执行的语句)
for j:=1 to n+1-i do
write(' ');
for j:=1 to 2*i-1 do
write(chr(64+i));
writeln;
end;//呼应begin1号
end.//主程序end,呼应主程序begin
温馨提示:答案为网友推荐,仅供参考