Răspuns:
program triunghi;
var i,j:integer;
begin
for i:=5 downto 1 do
begin
for j:=i downto 1 do
write(j,' ');
writeln;
end;
end.
Explicație:
Se poate generaliza problema de la n la 1, iar n se dă de la tastatură
program triunghi_2;
var i,j,n:integer;
begin
readln(n);
for i:=n downto 1 do
begin
for j:=i downto 1 do
write(j,' ');
writeln;
end;
end.