Задача по теме "вложенный цикл" - Pascal ABC

Формулировка задачи:

Доброго времени суток, друзья! Необходимо составить программу в паскале по построению следующей фигуры: 1 0 22 00 333 000 4444 0000 55555 и в обратном порядке(начиная с 55555). Помогите пожалуйста с решением!)

Решение задачи: «Задача по теме "вложенный цикл"»

Листинг программы

var i,j:byte;
begin
for i:=1 to 5 do
 begin
  for j:=1 to i do write(i);
  writeln;
  if i<5 then
   begin
    for j:=1 to i do write(0);
    writeln;
   end;
 end;
for i:=5 downto 1 do
 begin
  for j:=1 to i do write(i);
  writeln;
  if i>1 then
   begin
    for j:=1 to i do write(0);
    writeln;
   end;
 end;
end.

Объяснение кода листинга программы

Переменные i и j имеют тип byte.
В внешнем цикле for i:=1 to 5 do выполняется 5 раз.
На каждой итерации внутреннего цикла for j:=1 to i do выполняется i раз.
На каждой итерации внутреннего цикла записывается значение переменной i.
Если i меньше 5, то на каждой итерации внутреннего цикла записывается 0.
Во внутреннем цикле после завершения итераций выводится символ новой строки (writeln).
Во внешнем цикле после завершения итераций выводится символ новой строки (writeln).
Если i больше 1, то во внутреннем цикле после завершения итераций выводится 0.
Во внешнем цикле после завершения итераций выводится символ новой строки (writeln).