С помощью операторов цикла вывести ** экран 55555 4444 333 22 1

Question

С помощью операторов цикла вывести на экран
55555
4444
333
22
1

Answer 1

Var i,j:integer;
begin
for i:=5 downto 1 do
 begin
 for j:=1 to i do write(i);
 writeln;
 end;
end.

Результат:
55555
4444
333
22
1