Question

turbo pascal语言有个程序看不懂

就是这个看不懂，运行过，是星号菱形，有哪位码工来帮我翻译一下，万分感谢！（每句表明翻译，尽量详细！）
program jj(input,output);
var
n,a,b:integer;
begin
readln(n);
fora:=-(n-1) to (n-1) do begin
for b:=1 to abs(a) do
write(' ');
for b:=1 to n-abs(a) do
write('* ');
writeln;
end;
end.

Answer 1

abs(a)是取a的绝对值，外层的循环决定了共输出几行；

内层有二个循环，第一个循环决定头上输出几个空格，第二个循环则是输出几个星号。仔细一点，静下心来，按程序走一遍。它会输出一个底边竖直的星号组成的等腰三角形。