Помогите пожалуйста! Построить треугольник из знаков на Паскале 0000000000

var i,j:integer;

begin

for i := 1 to 4 do

begin

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

writeln

end

end.

var a:integer;

Begin

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

 while (a gt; 0) do Begin

   for var i := 1 to a do

     write('0');

   writeln;

   a := a - 1;

 end;

End.