Построить треугольник из символов на паскале 0000 000 00 0

var a:integer;

Begin

 write('Введите размер: '); readln(a);

 while (a > 0) do Begin

   for var i := 1 to a do

     write('0');

   writeln;

   a := a - 1;

 end;

End.

var i,j:integer;

begin

for i := 1 to 4 do

begin

for j:=i to 4 do write('0');

writeln

end

end.